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| ANO XIII - Nº 142- SETEMBRO 94 
Ao Leitor 


A Micro Sistemas abriu uma conferência na Rede Brasileira de Teleinformática 
(RBT), para tratar exclusivamente de assuntos relacionados com a revista. Com 
isso, mais de 180 BBS, espalhados pelo Brasil todo, passam a ecoar as 
mensagens, promoções, debates, etc que irão compor tal espaço. 

Nosso objetivo é criar um ponto de contato ente os leitores e a equipe técnica 
que produz a revista, bem mais dinâmico e sistemático do que a própria MS. Fiel 
à sua tradição de manter os leitores sempre em dia com as novidades 


tecnológicas, na área de programação, tal iniciativa visa também um contato mais 


informal entre os leitores e a redação. 

Se você já acessa de alguma forma um BBS, procure informar-se se o mesmo 
ecoa a rede RBT e se a conferência Micro Sistemas já está funcionando à pleno 
vapor. Serã um imenso prazer encontrálo por lá. 


Nesta edição voltamos ao tema dos fractais, que tem servido de base para 
inúmeras criações gráficas para multimídia. Vale a pena conferir. 


Renato Degiovani 
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CD-SHARE BRA: 
O terceiro CD da Série é lançado na Fenasoft 


A Kanópus informática lançou por ocasião da 80. Fenasoft 
a terceira edição do seu CD SHARE com 2.200 programas de 
livre circulação na modalidade Shareware. Nesta edição o CD- 
ROM traz 360 programas em português, 920 para eletrônica e 
Rádio Amador, 480 para diagnose de micros, 150 programas 
parareligião, 180 jogos poraDOS e WINDOWS, 150 programas 
educacionais, um kit para BBS montado e funcional, programas 
de comunicação para acessar BBS e uma excelente seleção de 
multimídia internacional. Alguns dos destaques desta edição são 
o programa ESTOQWIN, um controle de estoque com foto para 
Windows, incluso coma “Licençade Uso” gratuíto na aquisição 
doCD,aúltimaversão antivírus TBAV, diversostítulos emRPG( 
Role Playing Games ) e entre as multimídias destaca-se o Unreal 
e um simulador de elementos químicos. 

O CD-SHARE BRA ainda conta com 5 esdições do jornal 
Eletrônico Versão Zero e 3 da revista multimídia WarmNews. 

A empresa paranaense participou da FENASOFT como 
convidada de uma revista da área de informática e durante o 


Novo VirusScan 


ViruScan, o antivírus de maior base instalada do mercado mundial, com 
proteções em mais de 40 milhões de Workstations, esta ganhando a atualização de 
maior relevancia de toda a sua trajetória de sucesso. Duas novas técnologias para 
detecção, identificação e eliminação de vírus denominada como Code Trace 
Scanning (CTS) e code Mix Scannig (CMS), destacão-se como as principais 
novidades do ViruScan 2.0, que a Compusul lançou na fenasoft 94. 

Segundo André PitKowski, diretor técnico da Compusul, distribuidora exclusiva 
do pacote anti-virus da McAfee Associates no Brasil, a técnologia CTS permite ao 
ViruScan seguir qualquer fluxo de programação ativo em memória. Neste caso, o 
anti-vírus irá rastrear o arquivo à procura de qualquer atitude “suspeita” que possa 
provocar atividade viral, capaz de corromper os dados armazenados no sistema. 
“Esta técnologia também localiza virus novo ou desconhecido, seja ele polimórfico, 
encriptado ou mutante”, explica Pitkowsk, ao destacar que, assim, o usuário terá 
maior segurança com o anti-vírus, pois o número de alarmes falsos será reduzido 
para próximo de zero. O ViruScan 2.0 estará mais compacto, passando a existir em 
apenas dois módulos. A partir da técnologia Code Mix scannig, o Vshild continuará 
protegendo totalmente o sistema, enquanto que o scan irá rastrear e eliminar 
qualquer tipo de vírus, englobando também função antes exercida pelo Clean-UP. 
““A consequência direta é que o pacote ganhou em performance”, garante o diretor 
da Compulsul. “Com esta nova reengenhania de projeto, ViruScan 2.0 esta de três 
a quatro vezes mais rápido que a versão 1.115 atualmente disponível no mercado”. 

Outra novidade é que, agora, o anti-vírus iráa consumir menos memória. Para 
executar o Scan serão necessários apenas 340 Kb, enquanto que o VShueld, o único 
módulo a ser instalado no disco rígido, vai ocupar somente 2 Kb de memória 
convencional RAM. Entretanto, o VShield utilisara automaticamente qualquer 
quantidade de memória estendida (XMS), espandia (EMS), superior ou alta que o 
sistema protegido possuir. 
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evento ofertou programas sharewere como um brinde especial 
aos novos assinantes da mesma no intuito de difundir ainda mais 
a cultura do Shareware no país. 


Além disso a empresa teve uma atuação marcante no [ 
Encontro Nacional de Operadores de BBS da BBT, evento 
paralelo realizado durante a FENASOFT fazendo de seu stand 
umponto de encontro para mais de 100 sysops e usuários de BBS 
do país inteiro, que aproveitam a ocasião para adquirir o CD- 
SHARE a preços reduzidos de maneira a aumentar o acervo de 
programas nacionais em suas BBS e as empresas participantes. 
“Foi uma experiência bastante válida e nos proporcionou a 
oportunidade de fazer novos contatos eampliar o nosso mercado” 
- diz Maria do Carmo Zattar Struiving - diretora de Marketing 
da Kanópus que já esta pensando em retonar ao evento em 1995. 
O CD já está disponível ao público nas melhores casas do ramo 
emaiores informações podem ser obtidas na Kanópus informática 
(041) 222-0277. 
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ARQUITETURA COM 
MULTIPROCESSADOR 


A 3COM acaba de ampliar sua família de roteadores high-end e 
multiprotocolo NET Builder Il para suportar múltiplos processadores 
RISC, oferecendo ao mesmo tempo um sensível aumento de perfor- 
mance, densidades de porta e confibllidade. Agora, a 3COM 
oferece aos seus usuários uma arquitetura multiprocessada única e 
escalável para a família NETBuilder II fornecendo módulos de 
interface comuns software e capacidade de gerenciamento a preços 
compatíveis com esta linha. 

A nova arquitetura NET Builder II MP (Multiprocessador) estará 
disponível para todos os chassis NETBuilder inclusive o novo 
NETBuilder HI 8 Slot Extended Chassis, que oferece ampliação de 
capacidade de porta (até 48 portas), confiabilidade superior e total 
compatibilidade com todos os módulos de 1/O existentes. O novo 
chassis dá aos usuários um aumento significativo na capacidade de 
porta e confiabilidade total, através de módulos hot-Swappable 
(podem ser trocados com equipamento em atividade), fornecimento 
redundante de energia e memória flash, complementando a atual 
família de chassis NETBuilder II 4 e 8 slot de chassis. Todos os 
chassis NETBuilder II têm o mesmo design de backpane a 800 
Mbps e processador central RISC. A 3 COM também anunciou 
novas interfaces: ATM, 100 Mbps Ethernet, Token Ring de alta 
perffoemance, T1 channelized e ISDN Primary Rate (PRI). “Redes 
corporativas executando aplicações de missão crítica requerem 
roteadores capazes de garantir estabilidade, performance e 
escalabilidade o tempo todo”, disse o vice-presidente de marketing 
das Operações de Sistemas de Rede da 3 COM. A arquitetura 
NETBuilder II MP oferece uma confiabilidade sem paralelo e uma 
capacidade que vai alem de todas as linhas de produto disponíveis 
hoje nos principais fornecedores do mercado”. 
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SEM SAIR DE CASA 


sistema de apostilas, Basta seguir os 
exercícios e treinar diretamente no seu PC 








Estou enviando para Ricardo Flores, cheque 
cruzado e nominal à AUDIT SYSTEM 
SERVIÇOS LTDA., CAIXA POSTAL 25096 
- RIO DE JANEIRO - CEP 20552-970 no 
valor total do pedido já incluídas as despesas 
postais. Te./Fax: (021)571-5903 
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COMANDOS TRADUZIDOS PARA O NOSSO IDIOMA 
Acompanha disquete 5 1/4 com exercícios 









HELTOS é representante 
exclusiva da Dysan 


A Helios, tradicional fabricante de artigos escolares e para 
escritório, entra definitivamente no segmento de informática, 
trazendo para o Brasil a Dysan - uma das maiores fabricantes 
americanas de suprimentos com tecnologia de ponta para mídia 
magnética. O acordo de intenções firmado entre as duas empresas 
estadividido emtresetapas: inicialmente serão comercializados 
pela Hélius discos ópticos, disquetes 8,5 1/4, 3 1/2 polegadas. 
O segundo passo será a montagem de um entreposto em Santos, 
facilitando e agilizando a importação de suprimentos e a 
terceira fase inclui o lançamento de novos produtos, como fitas 
de vídeo (VHS e Camcorder) e áudio. 

Roberto Sacchi, diretor comercial da Hélius, ressalta que 
esse acordo comercial é importante, na medida em que o 
mercado de suprimento do Brasil movimenta números 
significativos - são consumidos mensalmente 6 milhões de 
disquetes e 50 mil fitas magnéticas. “Nosso objetivo, em doze 
meses, é obter, respectivamente, uma participação de 10% e 
12% nesses mercados, afirma. Segundo o diretor da Hélius, a 
parceria virá a endossar a entrada da empresa no mercado de 
informática, “pois entraremos trazendo com exclusividade para 
o país produtos com qualidade reconhecida em âmbito mundial 
e ainda não disponíveis no mercado nacional”, completa. 

A Hélius, implantouno ano passado o “Projeto Informática”, 
que cuminou na criação de uma nova divisão na empresa. Sua 
filosofia é trabalhar com protutos de alta tecnologia a preços 
competitivos, com vendas direcionadas para revendas e 
distribuidores de suprimentos. A divisão de informática deve 
fechar este ano representando 11% do faturamento global da 
empresa que foi de US$ 17 milhões em 93. 
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*Int. a informática MS-DOS até 6.2 
*WordStar 5.0/6.0 








*dBase III Plus Interativo 
*dBase Ill Plus Programado 
*Clipper 5.01 Básico | 
*Ventura Publisher - Edit.El. 
*word 2.0 

*Windows 3.1 

*Visual Basic 
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LIVROS . 








Redes de Computadores. 
Andrew S. Tanenbaum. 
Editora Campus. 

786 pães. 


Este livro, uma introdução 
as redes de computadores, 
enfatiza os protocolos e 
algoritmos das redes,desde a 
camada física até a camada 
de aplicações, e desde as 
redes locais até as redes de 
satélites. Partindo somente de 
uma familiaridadegeral com os 
sistemas de computadores e 
a programação, redes de com 
putadores apresenta todo o 
espectro dos protocolos básicos, os conceitos,os algoritmos,o 
software e as tecnologias. 

Esta edição, revisada para refletir os últimos avanços na área, 
apresenta materil sobre LANs(inclusive a JFEE 802), ISDN (inte- 
grated Services Digital Networks) e redes de fibras óticas. Há 
também um estudo detalhado das camadas superiores do modelo 
OS! (as camadas de transporte, sessão, apresentação 
eaplicações), bem como extensa discussão sobre MAP, TOP e 
USENET. Entre os destaques do conteúdo, incluem-se: 

A camada Fiísica- A camada de Enlace de Dados 1- Acesso ao Meio 
A Camada de Enlace de Dados2- Protocolos- À Camada de Rede 
A Camada de TransporteÃ Camada de Apresentação 





acamendos Apaes Sugestões de Leitura e Bibliografia É 
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Detesto Excel para Windows! vi versão 5 
Do pânico inicial ao prazer de usar 
QUE 

Editora Campus 

412 páginas 


Só a expressão” planilha eletrônica” já basta para assustar o 
iniciante em microinformática. Mesmo com a planilha Excel, que 
temtodos os recursos do ambiente gráficos do Windows, a situação 
não é muito diferente. Não é raro encontrar usários que detestam 
a tal planilha apenas porque não conseguem o básico: digitar e 
editar dados, criando assim sua própria planilha. Daí o lançamento 
Detesto Excel para Windows! dasimpáticae divertidasérie Detesto. 

Mantendo o estiloirreverente e simples de ensinar típico dasérie 
-, Patrik J. Burns apresenta os. conceitos básicos da versão 5.0 do 
Excel para Windows,com as telas do software em português. 

Da inicialização à impressão de planilhas, o leitor aprenderá a 
fazer alterações; abrir, fechar e excluir pastas de trabalho; imprimir 
a planilha; formatar a pasta de trabalho; editar, mover e copiar 
dados, entre várias outras ações. 

Além de dicas, exemplos e ilustrações, o livro traz outra 
característica dos livros da Série: as divertidas histórias em 
quadrinhos do conhecido cartunista americano JeffMcNelly, vencedor 
do Prêmio Pulitzer. 

Também faz parte da Série os seguintes títulos: Detesto PCs! 
(404 páginas); Detesto Windows! (380 páginas) e Detesto Word 
for Windows! (348 páginas) todos dentro do estilo de ensino 
simples, agradável e divertido. 





WordPerfect para Windows 
versão 6 

Shelley O'Hara 

Editora Campus 


282 páginas 


Aprenda a usar o Word- 
Perfect da maneira mais fácil 
com este método passo a 
passo, completamente ilus- 
trado. 

As ilustrações que acom- 
panham o livro tornam o 
aprendizado do WordPerfect 
rápido e fácil! 

WordPerfect para Windows, 
versão 6.0,6 o livro ideal para 
treinamento. O método revolu- 
cionário da Série da Rápido e Fácil utiliza: 

Reproduções das telas, antes e depois dos exercícios; notas de 
advertência,” Opa”, e dicas dos exreícios; um guia de advertencia 
dos principais comandos; seções de, revisão úteis; abordagem por 
tarefas ou por sequencia de exercícios. 








ALEX SOFT INFORMÁTICA 


R. Pedro de Toledo, 967 / 2 - V. Mariana - S. Paulo/SP - CEP 04039-032 (Próx. Est. Sta. Cruz do Mêtro) 
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: EDIDOS: por Carta ou Telefone de Segunda à Sexta das 10:00 às 18: :00 às 15:00, por Fax recebemos seu pedido por 24 horas 
todos os dias. Relacione o Código, o Nome e o Número de Disquetes de cada Programa Desejado. Não esqueça de adicionar a taxa de Correio. 

FORMAS DE PAGAMENTO: 1-) CHEQUE NOMINAL: à Alex Soft Entretenimento e Locação Ltda. ou 2-) DEPÓSITO : Banco Bradesco, Agência 
2282-9, Conta 5.520 - 4 ou Banco Unibanco, Agência 0098, Conta 121.879 - 5 em nome de Alex Soft Entretenimento e Locação Ltda., os depósitos 
serão conferidos através do Video Texto. 
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Visual Basic - Parte 8 


Este capítulo é apenas a continuação do passado. 


Ricardo Flores 


DO and 


O Pentelho solicitou um Painel de Controle que permita 
mudar a legenda e a cor de segundo plano do frmNota. Você 
programador, vai criar um menu em fimTabuada e o 
frmPControle com barras de paginação vertical. 





CRIANDO A BARRA DE MENU COM A JANELA DE 
DESENHO DE MENU 


A Barra de Menu terá um Menu Editar, contendo 1 item: 
Painel de Controle Ctrl+P 
Ative o formulário * Menu Windows N Menu Design 
Na caixa Caption, digite: &Editar * Na caixa Name, digite: 
mnutditar * Botão Next 
Nacaixa Caption, digite: Painel de Controle N Na caixa Name, 
digite: itmPControle 
Na caixa de lista Shortcut: [= Teclas de Atalho], selecione: 
Ctri+P 
Acione o botão para este item de menu ficar endentado N 
OK 


ADICIONANDO UM NOVO FORMULÁRIO 


| Clique o botão “Adiciona 
| Novo Formulário” OU 
| Menu File NX Add New Form 
| Propriedades de Fomi: 
| *Name: frmPControle 
| *Width: 3.510 twips 
| *Height: 3.975 twips 
*Caption: Palnel de 
Controle 
*MaxButton: False 
| *MinButton: False 
| *BorderStyle: 1 - Fixed 
| Single 


Novo 
Titulo: 


Vermelho Verde Azd 
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Clique o botão “Gravar Projeto Corrente” e digite: 
PAINELCO (Para nome desse novo formulário) 
OK 
CRIANDO A INTERFACE COM O USUÁRIO - 
FRMPCONTROLE 


Crie, redimensione e reposicione os objetos com as 
respectivas propriedades: 





Objeto | Name Caption | Borderôyle | : Default Tex | 

label ilabell Novo Tit: | 0-None UNA CNA 

Label ilabel? | | Vermelho | 0-None À NA NAO. 

label ni lLabel3  . Verde .0-None NIA NA 
Labelá | 0- None : N/A 





Tabelemreto ibiNovalor Nada |: i-Singlefixed: 
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Botão de Comando  .botOK | OK NA ineo NAO. 
Botão de Comando . botCancelar | Cancelar NA DP NAO. 
Barra de Pag. Vertical | bpuCor NA NA NA ONA 
Barra de Pag. Vertical | bpvCor | NA NA io NA NA 
Barra de Pag. Vertical | bpuCor NA NA NAO 

Caixa Text Avaliação | tetlNovoTit NA DI CNM Nada, 


N/A=Não Aplicável, ou seja, a propriedade não existe para este controle. 
D/P=Deixar no Padrão, ou seja, não alterar o valor da propriedade. 
Ão digitar o mesmo nome para este novo objeto, o VB 
enviará o Quadro de Mensagem: “Você já tem um controle 
de nome tpvCor'. Você quer criar um vetor de controle?” 
Acione Yes N Acrescente a última barra de paginação vertical. 


PROPRIEDADES DAS BARRAS DE PAGINAÇÃO [= 
SCROLL BAR] VERTICAL OU HORIZONTAL 


Propriedade Valor Numérico (0-32.767) 

Min limite do ponto sup. ou esquerdo da barra de paginação 

Max limite do ponto inf. ou direito da barra de paginação 

Value do local do marcador dentro da barra de paginação 

LargeChange distância que o marcador se moverá quando a barra é 
acionada 

SmaliChange distância que o marcador se moverá quando a seta da 
barra é acionada 


LINHA 95 DOS PRODUTOS 


Se o seu serviço está complicado, 
cheio de burocracia e com 
montanhas de papel, não se 
desespere. 

A estratégia tem a sua solução. 
Oferecemos programas produtos 
que adaptamos à sua empresa, 
para resolver o seu problema e 
acabar com a sua "dor-de-cabeça". 





Se desejar, também oferecemos 
produtos sob-medida para sua 
empresa, desenvolvidos no menor 
tempo possível. 
Experimente e comprove!! Faç 
você também uso das mordomias 
da estratégia. "Test drive" gratuito, 
| instalação, treinamento, "hot line", 
anfim tudo aquilo que você sempre imaginou que ia receber 
Juando comprasse um software. 

Adote a melhor estratégia, solicite a visita de um 
*epresentante técnico ou venha nos fazer uma visita. 





Na linha .de programas produtos temos os "genéricos" e os 
"específicos". Os "genéricos" são oferecidos nas versões 
slight", normal, multi e super. Os recursos disponíveis variam 
de acordo com a versão, sendo que a versão super é a mais 
completa, tendo características multi-empresa e 
fmulti-usuário. 


Os nossos genéricos são: 


Caixa 

Sistema de emissão de cheques em 
'microcomputador, é a forma mais 
rápida e segura de preenche-los e 
assina-los. 





Contas a Pagar 

Pode ser integrado ao CAIXA. O 
'CPAG controla as despesas classificando-as e agrupando-as 
contabilmente e gerencialmente segundo centros de custo e 
tipos de despesa. 


Cadastro 

Programa para controle de 
fornecedores e clientes, permite a 
emissão de etiquetas 
auto-adesivas para 
endereçamento postal bem como 
a impressão individual de 
envelopes personalizados e 
subscritos. 








GONGONBDIA DA 


Conta 
A contabilidade descomplicada e simples de usar. Permite 
um plano de contas com até 6 níveis. 


Os nossos específicos são: 


Controle de Operações de Câmbio 

Este destina-se aos usuários que desejem informatizar as 
suas atividades de Câmbio, beneficiando-se assim da rapidez 
e flexibilidade advindas do uso do microcomputador. . 


Chef 

Controle de Custos Refeições 
destina-se a restaurantes e empresas 
fornecedoras de refeições que desejam 
ter um controle sobre a rentabilidade de 
cada prato produzido e servido. 





Ônibus 
É um software para empresas que operam com ônibus de 
turismo. Ele controla as reservas e as excursões, emitindo 
listagens de pick-up, estatística de vendas, relatórios de 
serviços para cobrança dos agentes, bem como respectivas 
comissões e inúmeras outras informações. 


Mago 

É o sistema de controle de gado 
leiteiro. Gerencia as atividades 
cotidianas das granjas leiteiras. Avalia 
o desempenho dos animais sob 
aspectos reprodutivos e zootécnicos, 
individualmente ou em conjunto. 
Mantém um cadastro dos animais, / 
trata das tarefas relativas à produção 
de leite, cuida das atividades reprodutivas: cios, diagnósticos 
de prenhez, tratamentos pré-parto, inseminações e 
coberturas. 





Sica 

Controla a carteira de ações de um investidor. Todas as 
operações são lançados e as despesas de corretagem são 
apropriadas ao preço das ações. A carteira é avaliada 
também em UFIR e o resultado das operações é apurado de 
forma sistemática para a declaração mensal do Imposto de 
Renda. 


E para finalizar oferecemos o nosso já 
consagrado Papel Timbrado. Ele é o 
software que timbra o papel na sua 
impressora, nos relatórios produzidos 
PAPEL TIMBRADO por qualquer programa. E prático e útil. 
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Encontre e mude as propriedades dos objetos bpvCor: 


Propriedade  bpvCor(0)  bpvCor(1) bpvCor(2) 
Min 0 | 0 0 

Max 255 255 255 
Value 0 0 O 
LargeChange 20 20 20 
SmaliChange 10 10 10 


ESCREVENDO O CÓDIGO DO ITEM DE MENU PAINEL 
| DE CONTROLE DO FRMTABUADA 


Clique o menu Editar do formulário N Clique o item Painel de 
Controle desse menu 
Observe que antes de exibir [= Show] o fimPControle, 
estamos estabelecendo que: 
o texto da caixa txtNovoTítulo do frmPControle será igual a 
legenda do frmNota; 
acorde segundo plano do label IblNovaCor do frmPControle 
será igual a cor de segundo plano do frmNota. 
Isto posto, complete o procedimento: 
Sub itmPControle Click () 

frmPControle.txtNovoTítulo. Text = frmNota.Caption 


frmPControle.IblNovaCor.BackColor = ffmNota.BackColor 


frmPControle.Show 
End Sub 


Rode o aplicativo para testálo. 


ESCREVENDO O CÓDIGO BASIC DO BOTCANCELAR 
DO FRMPCONTROLE 


Duplo clique no botCancelar * Complete o procedimento: 
Sub botCancelar Click () 

Hide Esconde o formulário corrente. 
End Sub 
Rode o Projeto N Faça vários testes V Termine a Execução do 
Projeto 


ESCREVENDO O CÓDIGO BASIC DA BFVCOR DO 
FRMPCONTROLE 


Duplo clique na bpvCor (Qualquer uma.) 

O VB “percebendo” mudança [= Change] nos valores |= 
Value] de qualquer barra de paginação vertical (bpvCor(o) - 
parâmetro vermelho, bpvCor(1)- parâmetro verde ou bpvCor(2) 
- parâmetro azul), estabelece a cor de segundo plano do 
IblNovalor conforme o valor retomado da função RGB. 

isto posto, complete o procedimento: 


Sub bpvCor Change (Index As Integer) 
IblNovaCor.BackColor = RGB(bpvCor(0).Value, 

bpvCor(1).Value, bpvCor(2).Value) 

End Sub 


Rode o aplicativo para testálo. 





ESCREVENDO O CÓDIGO BASIC DO BOTOK DO 
FRMPCONTROLE 


Duplo clique no botOK * Complete o procedimento: 
Sub botOK Click () 
frmNota.Caption = txtNovoTítulo. Text 
frmNota.BackColor = RGB(bpvCor(0).Value, 
bpvCor(1).Value, bpvCor(2).Value) 
Hide fsconde o formulário corrente. 
End Sub 
Rode o Projeto N <Ctrl>+<P> N Ative as Barras de Paginação 
Vertical N OK 
Observe que IblAÁviso do frmNota não permite que você veja 
o que há por trás desse label. 
Termine a Execução do Projeto 
PROPRIEDADE BACKSTYLE [= ESTILO DE FUNDO] 
4 - Opaque [= Opaco]: Não permite visualizar o que está por 
trãs do objeto. 
O - Transparent: Permite visualizar o que está por trás do 
objeto. 
Encontre e mude a propriedade BackStyle do objeto IblÁviso 
do frmNota para 0 - Transparent . 


Rode o aplicativo para testêlo. 


NOTA: Aprendemos na escola que as cores primárias são 
vermelho, amarelo e azul. Essas cores primárias são 
subtrativas porque se as misturarmos o resultado serã 
preto. 


JãoVB, através do Windows, usa luz ao invés de tinta para 
produzir cor e adota como cores primárias: vermelho, verde 
e azul [=RGB= Red, Green, Blue). Tais cores são classificadas 
como cores aditivas, que formam o padrão usado nos 
aparelhos de TV, bem como em palcos de shows e teatro que 
usam holofotes de cores aditivas. A função RGB se encarrega 
de misturar as cores primárias aditivas, retomando um 
Inteiro Longo, que é o código da cor. 
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Até a próxima 


Ricardo flores é Auditor e Diretor da Audit system, empresa 
especializada em treinamento e Comuniação Visual. É 
4 formado emAdministração e Ciências Contábeis pela Cândido 
Mendes. Criou método próprio de treinamento em DOS, Lotus, 
Clipper e etc. 
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GLOBAL INFORMÁTICA LTDA. 
R. Barão de Itapetiniga, 297 - sala 44 - São Paulo - SP 






edidos: Por carta ou telefone de Segunda a Sexta das 9:00 às 18:00 e aos Sábados das 9:00 às 13:00. Relacione o nome ca 
quantidade de discos de cada programa. Se preferir visite-nos pessoalmente. 

Pagamento: Envie um cheque nominal a Global Informática Ltda. no valor total de seu pedido, não se esquecendo de 
acrescentar a Taxa de Correio. Promoção: A cada 10 cópias com disco, ganhe 1 à sua escolha; A cada 50 cópias disco, ganhe 9! 
Catálogo Eletrônico: Envie 1 disco 5 1/4 HD ou R$ 1,80 com nome e endereço. Catálogo Impresso: Gratuito! Peça já o seu. 



























Adventures 


Sam and Max 
Alone in The Dark 2 
Beneath a Steel Sky. 
Bloodnet são 
Gabriel Knigh 
Innocent Unti 
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| Fifa Soccer 02H | Ravenloft 07H 
— |Links 386 Pro 91H] Al-Qadim os 
" [Empire Soccer 94 03H | Arena: The Elder Scrolls 08H 
Jordan in Flight 01H | Lands of Lore 08H 
| Great Cours 2 08H 
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Computacional 


Caos, Fractais e o Método 


Conheça as teorias e estudos acerca do universo fractal 


Marco Aurélio de Souza Birchal 


Definir o Caos, hoje, não é mais uma mera questão 
filosófica de conceituação da lei da incerteza ou do acaso. 
O estudo do Caos é o estudo dos fenômenos aparentemente 
imprevisíveis, na busca de padrões escondidos e de leis 
simples, num mundo no qual se suspeitava ser pura 
desordem. 

Esse estudo só se tornou efetivamente possível após a 
década de 60, quando os computadores começaram a 
apresentar poder de processamento relativamente grande e 
se tornaram mais acessíveis a certos físicos e matemáticos, 
que, naquela época, começaram a procurar meios de 
explicar o aparentemente inexplicável, por perceberem que 
“faltava algo” na ciência capaz de unificar conceitos no 
sentido de se terem respostas para as questões 
fundamentais de maneira global, e não para casos 
particulares por sistemas arranjados para “dar certo”. 

Conhecemos hoje dois padrões de sistemas físicos e 
matemáticos. Ao primeiro, pertencem os bem comportados 
sistemas lineares, no qual uma função é bem descrita 
através de uma equação responsável, que tenta representar 
um sistema físico real, dentro de certos limites. O segundo 
padrão de sistema é o chamado não-linear. Nos sistemas 
nãolineares, não se consegue através de algebrismos, 
encontrar as respostas tão bem elucidadas pelos lineares, 
por possuírem uma grande quantidade de variáveis ou 
ordem maior que um (x2, x3, etc) e não responderem de 
forma linear ou organizada às variações de sua entrada. 

Os sistemas naturais são, em sua grande maioria, não- 
lineares: num carro andando numa estrada existe atrito com 
o ar; todo líquido é imperfeito, não homogêneo e possui 
viscosidade; ou ainda: numa mesa de sinuca o pano não é 
liso e influencia na trajetória da bola. Tudo isso causa 
descontinuidades e, para se resolveremtais problemas com 
sistemas lineares, precisariamos desconsiderar as 
influências, e obteríamos apenas uma pseudo-realidade. 


MICRO SISTEMAS 


Um dos estudiosos dos fenômenos caóticos é Benoit 
Mandelbrot, possuidor de um gênio superior e uma percepção 
fantástica. Trabalhava na IBM na década de 60 e começou 
a investigar, com o auxílio de computadores, fenômenos 
aparentemente aleatórios, como: resposta de sistemas 
econômicos e bolsa de valores, ouo erro de transmissão em 
sistemas digitais, que obedecem a sistemas não-lineares e 
por isso necessitavam de métodos numéricos para serem 
resolvidos. 


FRACTAIS 


Mandelbrot era um matemático não ortodoxo e preferia 
aplicar a geometria na solução de problemas, ao invés de 
resolvêlos algebricamente. Acreditava que a resposta gráfica 
de um sistema consiste em uma noção mais completa do 
problema. 

Graças à sua preferênciageométrica, Mandelbrot percebeu 
que sistemas aparentemente caóticos possuíam padrões 
simples de resposta que eram repetitivos e continham, 
intrinsecamente, um algoritmo de auto-repetição capaz de, 
através de uma parte, gerar o todo. A essa forma geométrica, 
Mandelbrot chamou Fractal, que significa a menor fração de 
um todo auto-similar capaz de gerar o conjunto. 


MÉTODOS COMPUTACIONAIS 


Desde Newton (e mesmo antes), tem-se a necessidade 
de se calcular as raízes de equações (valores de x para os 
quais a equação é nula) de grau superior a dois, o que 
frequentemente se toma quase impraticável devido à 
complexidade algébrica das soluções. 

Newton desenvolveu um método numérico de 
aproximações sucessivas da solução, que permite resolver, 
numericamente, problemas até então insolúveis (digo 
numericamente, porque encontramos valores cada vez mais 
próximos da resposta, mas não encontramos efetivamente 


a resposta). 

O Método de Newton consiste em se estipular um valor 
inicial para a resposta, a partir dele, iterar a função até que 
se aproxime o mêximo possível da mesma, obtendo-se uma 
resposta numérica e um fator de erro (aproximação). 

O Método de Newton ( assim como outros mais modernos) 
é usado para se resolverem sistemas nãolineares. Os 
sistemas não-lineares são equacionamentos matemáticos 
de sistemas físicos dinâmicos que representam a variação 
de uma certa grandeza, no tempo e no espaço. Conseguir 
resolver tais sistemas é achar a resposta para os problemas 
físicos. 

Levando-se em conta que o próprio Método pode ser 
encarado como um sistema dinâmico, devido à natureza 
iterativa de sua solução, o presente programa traça no vídeo 
do computador a tendênciade cada ponto do plano complexo 
de alcançar uma raiz de uma equação complexa. Pelo gráfico 
de tendências, podemos analisar o comportamento de cada 
ponto em relação ao esperado. 

Aqui, a revelação: Num sistema qualquer, é de se esperar 
(mesmo intuitivamente), que os pontos tendam a alcançar 
a raiz mais próxima, já que todo sistema tende a se 
estabilizar, quando alcança uma das suas raízes. Porém, o 
que se obtém é uma formatfractal entre os limites de atuação 
das raízes do sistema, de forma que um ponto que 
teoricamente tenderia a uma raiz, teima em se aproximar de 
uma raiz mais distante, gerando um comportamento 
aparentemente caótico, mas que respeita uma formidável e 
belaformageométrica de assustadorasimetria, independente 
do grau de escala (zoom) do gráfico. 

Tomamos então uma equação de terceiro grau para 
traçarmos sua tendência em relação às raízes. A equação 
ê: 


Z31=0 


Onde Z é um número complexo (um número formado de 
uma parte real e uma imaginária. ex.: Z=R+jX). 

À necessidade de se tomar um número complexo vem da 
facilidade que isso traz quando vamos plotar um resultado 
na tela do computador, pois, sendo ele formado de duas 
partes, tomamos o eixo dos x como a parte real R e o eixo 
dos y como a imaginária, jX. 


fig.1-a bolinha tende para 
o buraco mais próximo 


Este sistema numérico 
pode ser entendido como 
um análogo físico de um 
plano inclinado com três 
buracos em pontos 
distintos, onde cada um 

Aga dos buracos seria uma 

raiz do sistema. Se 

soltarmos uma bolinha em qualquer ponto do plano, ela iria 

tender a caminhar em direção ao buraco mais próximo, já 
que ele a estaria “atraindo”. 











Verifica-se que, para a grande maioria dos pontos do 
plano, a bolinha realmente vai para o buraco mais próximo. 
Mas, o que acontece quando ela está numa região de 
separação entre influências? A resposta mais razoável 
seria: Não sei, soltemos a bolinha para descobrir. É o que 
estamos propondo aqui. 

Pois bem, acontece que quando a bolinha chega numa 
dessas regiões, ela perde totalmente sua característica 
linear - ir para o buraco mais próximo - e começa a se 
comportar de maneira caótica - ir, talvez, para o buraco mais 
distante. 


figura 2 - a bolinha oscila 
e vai para o buraco mais 
distante 


O programa possui 
uma cor para cada uma 
das soluções do pro- 
blema (raízes da equa- 
ção) e varre o plano 
Buraco Complexo, ponto a ponto, 
dentro dos limites for- 


região instável 


necidos. 

O Método de Newton é iterado n vezes para cada ponto 
e, no final testase para qual das raízes o ponto tomado 
convergiu. Isso é feito através da diferença: 


P = PONTOK- RAIZn 


Onde PONTOK é o ponto resultante do valor iterado, e 
RAIZn é o conjunto de raízes da equação, tomadas uma a 
uma. Se P formenorque a precisão requerida, indica que seu 
valor tendeu para a raiz testada e ele é plotado com a cor da 
raiz para a qual convergiu. 

Tudo ocorre tranquilamente nos pontos próximos das 
raizes, mas, quando chegamos à região de fronteira, obtemos 
um gráfico totalmente atípico e maravilhoso (figura 3 e figura 
4). Ele nos mostra que os pontos da fronteira são 
problemáticos e possuem um padrão próprio e que por muito 
tempo passou despercebido, mas, mesmo assim, é um 
padrão - infinito e auto-repetitivo - é um padrão fractal 





fig.3 - -20<x<20, -20<y<20 
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fig.4 - 1<x<1, -1<y<i 


O PROGRAMA 


O programa foi escrito em QBasic, podendo ser rodado 
em qualquer computador que possua MS-DOS 3.0 ou 
posterior, com tela VGA. Pode-se mudar a resolução para 
CGA, desde que se altere o comando SCREEN 8 para 
SCREEN 2. 

Como o processamento é iterativo, ele será lento se 


interpretado, aconselhando-se a compilação para otimizara 


velocidade. Para se contornaresse problema, foraminseridas 
as grandezas Tamanho (numa faixa de 1 - pequeno a 4 - 
grande) que define o tamanho do gráfico em relação à tela 
e Resolução (numa faixa de 41 - alta resolução a 9 - baixa 
resolução) que define a quantidade de pontos a serem 
calculados dentro os limites inferior e superior definidos. 
Estes limites não são testados, ficando o usuário livre para 
modificação dos mesmos, tanto para mais, quanto para 
menos. 

O programa pede, inicialmente, os limites de cálculo, que 
são dados pelo retângulo de diagonal inferior (xi, yi) e 
diagonal superior (xs, ys). Deve-se fornecer, 
preferencialmente, coordenadas simétricas como (-1,-1) e 
(1,1) ou (-10,-10)e (10,10) paras limites inferior e superior 
respectivamente, pois, desta forma, está-se ajustando a 
escala para uma área sempre simétrica em relação aos 
eixos do plano. 

Como se trata de números complexos, foram usadas 
matrizes 1x2 para representar as respectivas partes real (ex. 
qd(1,1)) e imaginária (ex. qd(1,2)) de tais números. 


E==| MARCOAURÉLIO DE SOUZA BIRCHAL é Engenheiro Eletricista 
6 atua na área de processamento de dados. É aúdio 


ática, em Belo Horizonte. 
CAOS. TAN 


REM CAOS.BAS - Um programa para plotagem 
do comportamento 
REM fractal do Metodo de 





Newton aplicado a 

REM equacoes complexas do 
tipo: zmx*n - a 

REM Autor: Marco Aurelio. de Souza 
Birchal | 


MICRO SISTEMAS 





REM 1994 


DIM SHARED z(1, 2) 

DIM SHARED sm(1, 2) 

DIM SHARED qd(l, 2) 

DIM SHARED mu(l, 2) 

DIM SHARED di(l, 2) 

DIM SHARED raiz(3, 2) 

DECLARE SUB quad (X, Y) 

DECLARE SUB soma (x2, x1, y2, y1) 

DECLARE SUB multi (am, bm, cm, dm) 
DECLARE SUB divid (ad, bd, CD, DD) 


ON ERROR GOTO erros 


CLS 

rinf = 0 

PRINT “ Entre com og valores dos 
limites de x e y inferiores e 
superiores:” 

PRINT “ (x1,yi) - limites inferiores. 
ex.: -1,-1” 

PRINT “ (xs,ys) - limites superiores. 
ex.: 1,1” 

PRINT 

PRINT “ OBS: apos iniciada a plotagem, 
digite <T> para terminar a qualquer 
instante” 

PRINT 

INPUT “entre (x1,yi)”; xi, yãd 

INPUT “entre (xs,ys)”; xs, YS 

PRINT 

INPUT “resolucao: (1 a 9) “; res 
INPUT “tamanho: (1,2,3 ou 4) “; tam 
CLS 

SCREEN 8 

VIEW (0, 0)-(160 * tam, 50 * tam) 


er = .01 
nraiz = 3 
raiz(l, 1) 
raiz(1, 2) 
raiz(2, 1) 
raiz(2, 2) 
raiz(3, 1) 
raiz(3, 2) 
CLS 

corant = 10 


“1/2 
- (SQR(3)) / 2 
“1/2 
a / 2 


0 


"“passox = (xs - xi) / ((160 * tam) / 


res) 

passoy = (ys - yl) / ((50 * tam) / res) 
dter = 20 

WINDOW (xl, yl)-(xs, yB) 


FOR xx = xi TO xs STEP pasgsox 
1$ = INKEYS 
IF i$ = “t” OR à$ = “T” THEN 
END 
END IF 


FOR yy = yi TO ys STEP passoy 

z(1, 2) = YY 

z(1, 1) = xx 
PSET (xx, yvyy), 14 

1 =1 

DO 
quad z(1, 1), z(1, 2) 
multi z(1, 1), z(1, 2), 

qd(1, 1), qd(i, 2) 

quoi = mu(l, 1) - 1 
quo2 = mu(i, 2) 
multi 3, 0, qd(1, l1), qd (1, 


2) 
divid quol, quo2, mu(l, 1), 
mu(l, 2) | 
z(1, 1) = z(1, 1) - di(li, 1) 
z(1l, 2) = z(1, 2) - dili, 2) 
cor = 10 
FOR aa = 1 TO nraiz 


IF ABS(z(1, 1) - 
raiz(aa, 1)) < er AND ABs(z(1, 2) - 
raiz(aa, 2)) < er THEN 

IP cor = 10 THEN 
cor = 14 
ELSE 
IF cor = 
cor = 13 
END IF 
END IF 
PSET (xx, yy), cor 
corant = cor 
l = iIter + 1 
ELSE 
cor = 
END IF 
NEXT 


cor + 1 


Ll=1+1 
LOOP UNTIL 1 >= iter 
IF res > 1 THEN 
LINE (xx - passox, yy - 
passoy)-(xx, yy), corant, BF 
END IF 
NEXT yy 
NEXT xx 
lacos 


1$ = INKEYS 


FAÇA JÁ O SEU PEDIDO ! 


031-496-6840 


AV. XANGRI-LA, 75 - C125 - BRAÚNAS 


BELO HORIZONTE - MG 
CEP: 31.365-640 


PREÇO POR DISCO (INCLUSO) 


360 DD - R$ 1,20 
1.20 HD - R$ 2,00 
1.44 HD - R$ 2,30 


12 THEN | 


IP 1$ = “" THEN 
GOTO laco 
END IF 


erros: 

PSET (xx, YY), 8 

rinf = 1 
“RESUME NEXT 


SUB divid (ad, bd, CD, DD) 
multi ad, bd, CD, 
ed = mu(i, 1) 

fd = 
gã = 


- DD 


mu(l, 2) 
(CD * CD) + (DD * DD) 


di(li, 1) = ed / gd 
di(i, 2) = £ã / gá 


END SUB 


SUB multi (am, bm, cm, dm) 
mu(i, 1) = (am * cm) - (bm * dm) 
mu(l, 2) = (am * dm) + (bm * cm) 
END SUB 


SUB quad 
qd(1, 1) 


(X, Y) 
=(X*X) - (y * y) 
= (X* vv) + (y * X) 


END SUB 


SUB soma (a, b, c, d) 
sm(1i, 1) a+c 
em(1, 2) b+ d 

END SUB 





LANÇAMENTOS 


CRAZY CARS lit 

TIE FIGHTER 

HARPOON Il 

THEME PARK 

INDYCAR RACING CIRCUITS 

DARK LEGIONS 

WAR IN RUSSIA 

D-DAY BEGINNING OF THE END 01MD 
RUSSIAN SIX PACK 02MD 
PRIVATEER - RIGHTEOUS FIRE 02MD 
EPIC PINBALL IH 
THEATRE OF DEATH 

GENESIA 

THE DIGGERS 

LAST ACTION HERO 

RYDER CUP - OCEAN 

FS 5.0-ADDON ITALY 


LEGENDS OF KYRANDIA H 
CHESSMASTER 4000 WINDOWS 
MASTER OF ORION 

1942 - THE PACIFIC AIR WAR 
STAR TREK JUDGMENT RITES 
THE BEVERLY HILLBILLIES 
WASHINGTON SCENERY FS 5.0 
DETROIT 


FIA 18 HORNET NAVAL STRIKE 
COMPANIONS OF XANTH 

ISLE OF THE DEAD 
UNNATURAL SELECTION 
SYNDICATE DATA DISK 
CORRIDOR 7 - ALIEN INVASION 
THE RED CRYSTAL 
CIVILIZATION FOR WINDOWS 
BATTLE ISLE UH 

BLOODNET 

RAPTOR - CALL OF SHADOWS 
THE HORDE 

STARLORD 

REUNION 

CARRIERS AT WAR E 
TERMINATOR RAMPAGE 


ROBSON REQUIEM 
BENEATH A STEEL SKY 
GREAT NAVAL BATTLES fi 
ULTIMA VIM - PAGAN + SPEECH 
OSCAR 

INHERIT THE EARTH 
LEGENO OF MYRA 


U.F.O. ENEMY UNKNOWN 
E MUITO MAIS PARA VOCÊ! 


ELE EELEE 


eo mto ms io md ea 








CLASSIC SOFT TEL/FAX (011) 875-4644 


RUA JOÃO CORDEIRO, 495 - FREGUESIA DO Ó - SÃO PAULO - CAPITAL - CEP 02960-000 


PROMOÇÕES PC 
10 Jogos ou aplic. ganhe um grátis c/ disco. 
50 Jogoe ou aplic. ganhe 10 grátis c/ disco 












FAÇA SEU PEDIDO: Por telefone, fax ou carta. 

FORMAS DE PAGAMENTO: 

A) SEDEX à cobrar, você só pagará quando retirar o pedido no correio da sua cidade. 
(Lembramos que 0s serviços dos correios cão caríssimos) 

B) CHEQUE NOMINAL À CLASSIC SOFT LTDA., para sua comodidade e economia recomendamos fazer o 
pedido por cheque nominal pois você recebe seu pedido em casa. 

C) DEPÓSITO BANCÁRIO: Unibanco - ag. 137 - conta 113 444-4 em nome de Classic Soft 
Bradesco - ag 117-1 - conta 98741-7 em nome de Classic Soft - enviando xerox do depósito junto ao pedido. 
DESPESAS POSTAIS: (Registrada) pedidos até 18 discos..... R$2,80 (Preço somente para pagamento em cheque 


A Bpósito bancário Ô 
JOGOS P/ PC/XT-AT - DISCO HD R$ 2,00 -DISCO DD R$ 1,50 C/GRAVAÇÃO 


einiaioa 1092 8DD LEISURE SUIT LARAY KcgaN ga) Ji34 2DD FORO SIMULATOR 2 (cga) Ht94 1HD WOLF PACK (cgahga) 1348 3DD POKER CHINES (cgalaga) 










DISCO 5 1/4 HD C/ GRAV............... R$ 2,00 
DISCO 5 1/4 DD C/ GRAV....c....... R$ 1,50 
PARA COMPRA ACIMA DE 20 DISCOS 
PAGAMENTO EM DUAS VEZES: 

metade no ato, metade para 15 dias após. 











































































à H041 BHD LEISURE SUIT LARAY 5 (vga) Ji44 1DD GRAN PRX CIRCUIT (cga) REST ER 1030 1DD POOL 3D (cgalega) 
AE ai J201 2DD LIFE AND DEATH (ega) 1251 4DD GRAN PAX UNLIMITED (vga) : MB: E E E dê J349 1DD STRIP POKER (ega) 

H1022 02HD AIRBUS320 H474 9HD MANSLEY LOS ANGELES (vga) 563 1D0D HARD DAIVING ( coaNga) R Estica iRS ease serenata 1155 7DD STRIP POKER3 (vga) 

H0785 03HD ACES OVER EUROPE H340 5HD MARIO MISSING (vga) Ja! 2DD HARD DAIVING 2 (cgaNgaloy) t191 IDD SOTHFRAME (boliche)(ega) 1266 1DD STRIP POKER EM PORTUGUES 

dede o ASS O FULL H370 9HD MIGHT AND MAGIC 4 (vga) Jf7? 2D0 INDIANAPOLIS 500 (cgakga) HOS3 IHD 40 SPORTS BOXING (vga) 1249 IDD TRUCO (cgaioga) 

H0B44 OSHO COACHES CLUB FOOTEALL J518 BDD MONKEY ISLAND 1 (vga) J244 2DD OUT RUN (cgangaher) 1119 4DD ABC BOXXING (vga) 1423 1DD VIDEO POKER (egalega) 

HO881 01HD COOL WORLD H027 BHD MONKEY ISLANO 2 (vga) 1905 2DD PARIS DAKAR (egaNgaher) J979 1DD ARCADE VOLEY BALL (cga) 

HO928 03HD COMMANCHE MISSION 2 H292 SHD QUEST FORGLORY 3 (vga) J278 2DD AMSUZUKI (cgalega) 1355 9DD BUFALLO BILL (cgakga) 

H1010 O1HD CREEPERS H313 10HD SHERLOCK HOLMES (vga) JM 3DD STREET ROD (cgalgaher) J062 9DD CALIFORNIA GAMES li (cgaNga) 

H1024 02H0 DINO PARK J826 3DD SPACE QUEST 2 (calça) J344 4DD STREET ROD 2 (cgaNgahar) J$76 SDO DREAM TEAM (vga) 

H0836 04HD DOOM FULL J916 6DD SPACE QUEST 3 (cgalgalher) J354 4DD STUNTS (cgavgaher) 1404 1DD EIROPEAN CHAMPION 1082 (vga) 

HO840 04HD DOOM REDE H095 6HD SPACE QUEST 4 (vga) J361 1DD SUPERA HANG ON (cgaloga) J559 1DD FERNAN MARTIN(cga)(basqueto) 

HOS98 024D EIGHT BALL DE LUXE H985 SHD SPACE QUEST 5 (vga) 1362 20D SUPEROFF ROAD (cgaiga) H212 3HD HARD BALL 9 (vga) 

opel id errar dd H413 2HD STARLEGIONS (vga) 3377 1DD TEST DRIVE 1 (cgalgaher) 1338 SDD HOLE NONE (golloXcgakrga) 

HOB48 OSHD ETERNAN H274 6HD STUNT ISLAND tvga) J378 ADD TEST DAIVE 2 (cgaiagaNga) J876 200 INTERNATIONAL SOCCER (cgaivg) 
J929 1DD TRANSILVANIA (cga) J738 1DD TURBO OUT RUN (cega) J184 20D KING'S OF THE BEACH (cganga) 

H485 2HD VENGANCE OF EXCALIBUA (vga) J736 9DD TURBO OUT RUN (vga) J19t 20D LAKERSx CELTICS (cgaloga) 




























































































































































H118 4HD BATTLE CHESS FORWINDOWS 
WH1S9 IHD BATTLE SAT (batalha naval) 
H106  1HD CHESS MASTER 3000 FOR WIN 
1283  14DD DAMAS FORWINDOWS 

WH229 2HD GAME PACKIV 

H021  1HD JOGOS FOR WINDOWS 

H983  2HD MONOPOLY DELUXE (386) 

H641  2HD  PIMBALL WINDOWS (386) 

H457  tHD POKERFORWINDOWS 






































H0949 06HD FLIGHT SIM. (SAN FRANCISCO) 
H0879 02HD FORD SIMULATOR 3 










HO878 01HD GALACTIX NEW VERSION Ng ppensnconc esenonne HO74 1HD VETTE (agaNga) 1285 SDD LINKS (vga) W030 1DD PUZZLE 
H0929 02HD HIGTH COMMAND A 3 3HD WORLD CIRCUIT (305hga) H498 4HD LINKS 386 (36S/svga) H443  2HD RISKFORWINDOWS (386) 
HO932 01HD HALLOWEEN HARRY » Sbt Po seda Tree 4205 3DD LOW BLOW (BOXE) (cgakga) 1351  2DD SIMCITY FORWINDOWS 























H1058 10HD INCA 2 

HO0713 03HD INDY CAR RACING 

H1051 04HD JURASSIC PARK 

HoBBo 01HD LOTUS ULTIMATE CHALLENGE 

HO899 08HD LEISURE SUIT LARRY 6 

H1028 02HD LESSLE ANGEL 

HO939 01HD LIVERPOOL 

H1043 08HD METAL & LAÇE 

HO0747 03HD MORTAL KOMBAT 

HODO3 OBHD MIGHT MAGIG V DARKSIDE OF 
XEEN 

H0618 O3HD NIGEL MANSSEL 















W067 | 1DD TAKE ONE 
1947  fDD TETAIS FORWINDOWS 
WH201 1HD WINSHAFK (pokar) 


3519 2DD ASTERIX (cga/ogak ga) 
HOB9 1HD BAT (vga) H455 2HD OLIMPIADAS 82 (vga) 
H337 7HD BATMAN RETURNS (vga) H415 1HD SUPERSKY ll (vga) 
J035 4DD BATMANTHE MOVIE (cgaMga) persas 526 3DD TAKE DOWN (luta livra)tcga) WH203 1H0 WINWHELL 
H448 1HD BUMPY'S (egalvga) J018 20D AFTERBUANNER (cgargahor) J997 4DD TENNIS PRO TOUR (egalega) WHi72 1HD ZONEON 
J847 1DD CADAVER (vga) J747 200 BLOODY MONEY (vga) Ht12 1HD TENNIS PTO TOUR 2 (vga) e 
J167 1DD CAPITAO TRUENO (ega) J740 2DD BLUE ANGELS (cgakga) 1280 20D WORLD CHAMPION SOCCER (vga) EUA 

JOGB 2DD CASTLE VANIA (cgalaga) Jtt4 1DD ELITE (cega) J138 2D0D WORLD CUP SOCCER (cega) 
1478 1DD GOMAN (pac mankga) Ht26 1HD ELITE PLUS (vga) J437 t0D WORLD GAMES (cga) TIE: » 
1284 1DD CHARLIE CHAPLIN (cga) 9684 4DD FIGHTER BOMBER (cgaN ga) 40 1DD WORLDTOURGOLF (cega) paia 


H399 t1HD NCAA BASKETBALL (vga) 



























































1476 20D COMMANDER KEEN 8 (oga) H087 IHD GALACTIC (vga) ee REP ERAS 1363 200 ANMETED MEMORY (vga) 
HoB77 01H PANG DINO BALL 1911 6DD DICKTRACE (vga) 1198 1DD STAR GOOSE (cga) : J928 DD ATOM (vga) 


H0910 12HD POLICE QUEST 4 
H1075 01H0 PINBALL DRENS FULL 
HO924 02HD PINBALL FANTASIES 
H0651 08HD PRIVATEER 

H0740 05HD ROBOCOP 3D 

H1005 02HD RAGNAROK 

H1055 03HD RAL ROAD TYCON DELUXE 
HOB93 06HD RALLY 

H1001 04HD RAPTOR 

HO853 08HD STRIKE COMMANDER 
Ho882 01HD SOLAR WINDS 

HO884 01HD SINK OR SWIN 

HOBDO 03HD STREET FIGHTER Il FULL 
HO934 01HD SENSIBLE SOCCER 
HO938 02HD SUPER PORNO 2 
HOD49 02HD SUPER PORNO 3 
HOD42 02HD SUPER PORNO 4 
HOD43 02HD SUPER PORNO 5 
HO945 02HD SUPER PORNO 6 
HO947 02HD SUPER POANO 7 
H1007 03HD SURF NINJAS 

H1069 O4HD STAR CONTROL 2 
HO0955 .14HD STAR WARS CHESS 
H0720 11H0 STAR TRECK JUDGMENT 


RITES 
H0827 02HD SIM CITY 2000 
H1068 01HD SIM CITY (SENÁRIOS) 
HO921 O2HD SIM HEALTH 
HO0935 02HD TIME AUNNER 
HO0777 01HD THE LOST VIKINGS 
H1079 02HD TOP GUN 
H1014 OBHD ULTIMA 8 PAGAN 
H1011 03HD ULTIMA 8 SPEECH PACK 
H0328 05HD X-WING 
HO334 03HD WORLD CIRCUIT 
HO648 01HD WORLD CIRCUIT 
UPGRADE 








329 1DD STARTRECK (cga) POSSO ooo J038 2DD BATTLE CHESS (cgaNga) 
v34) SDD STARTRECKYV (vga) 014 1DD ADULT GAMES (cega) H385 8HD BATTLE CHESS 4000 (vgaisega) 
H164 THD STARTRECK XXY (vga) J020 1DD AIDS (cega) JO74 1DD CHESS MASTER 200 (cga) 
394 1DD THEXDER (ega) JOs4 1DD BOCA (cga) H062 2H0 CHESS MASTER 3000 (vga) 
J589 3DD XENON Il (egaNga) JO77 10D CINE PORNO (cga) H3t1 2HD CIVILIZATION trga) 
Jt2 1DD XONIX (cega) H458 3HD DU-VIEWER (vga) 1382 1DD COLUMMS (aga) 
H329 5HD X-WING STAR WARS (3864 ga) 965 10D EAST SUCKS WEST (vga) JOBS 1DD CYRUS XADREZ 3D (egaNga) 
L002 GHD WING COMMANDER II (vga) J830 1DD MAXINE (cga) 1403 1DD DYNAMO (DAMAS) (cgaNga) 

TETE 1300 20D NIKKI (vga) J125 1DD FACES (cgaha) 
1432 1DD PORNO 1 (cega) JB48 3DD FACESTETAIS (vga) 

ia irritado 1434 1DD PORNO CARTOONS (cga) J198 300 LEMMINGS | (vga) 
J002 2DD 686 ATTACK SUB 2 (cgaNça) 262 1DD PORNO STORY (cega) HaB0 2HD LEMMINGS 2 TRIBLES (vga) 
J004 4DD A-10 TANKKILLEA (cgaloga) HO98 1HD SEXCAPPAD (vga) 1101 6DD LIVINGJIG SAW (vga) 
J$64 BOD A-10 TANKKLLER 2 (ogahga) HD49 2HD SUPER PORNO DEMO (vga) J898 1DD LOGICAL (vga) 
1992 6DD A-TRAN (vga) Jr86 1DD TELA EROTICA (ega) Ht93 1HD MICKEY JG SAW (egaNga) 
J7B4 20D ABRAMS BATTLE TANK (egabga) [ranger 228 100 MONOPOLY (cega) 
938 1DD ACESOFACES (cga) a 4307 1DD MONOPOLY 2 0 (agaNga) 
HOB4 3HD ACESOFTHEPACIFK fuga) piscas Carnes a a ear eetaçs 939 10D PACMAN (cgafPC-XT) 
t182 4DD ATP (cgalogaM ga) é ' 1219 1DD PACMAN (agaNga) 
Ht96 SHD B-17 FLYING FORTRESS (vga) AAA AAA AA AA ão H418 SHD POPULOUS N tra) 
JO49 2DD BATTLE HAWKS 1942 (cgaN ga) 1405 1DD AIRBONE RANGER (ega/ega) H416 1HD SARGON Y tvga) 
JO45 4DD BATTLE OF BRITAN (cgarga) 1154 1DD BATALHA NAVAL (cega) 383 1DD TETAIS (cga) 
H280 3HD COMANCHE (3864 ga) JO59 2D0 CABAL (cgalaga) H43s 1HD TETTAIS CLASSK (vga) 
Jo14 60D F-At7A (vga) H215 1HD CONFLICT (sgalega) H393 2HD THE HUMANS (rga/sv ga) 
H255 1HD F-t17A TURORMAL tvga) H214 1HD CRACK DOWN (cgaNgamer) H433 2HD0 THEATRE OFWAR 
544 4DD F-14TOMCAT (egalga) t272 20D GREENBERET (PC-XTicga) 1168 10D X-MAS LEMMINGS fvga) 
J115 tDD F-ASSTAIKE EAGLE | (cga) J187 1DD IXARIWARRIOAS (ega) 1109 1DD ZARKOV (xadrazicgaNga) 
J116 2DD F-15STAIKE EAGLE 2 (cgakga) 1410 1DD METAL GEAR (cgalogaher) DOBRBRAGaR ERCRRNONOCOonnnacnnosnnasancanço: 
H267 GHD F-I5STRICK EAGLE 3 (v9a086) J241 3DD OPERATION WOLF (cega) E TERA : 
J118 2DD F-16 COMBAT PLOT (cgalor) H286 1HD PACIFIG ISLAND (cgaN ga) Pta aaa aaa dear 
Jt21 390D F-19 (cgalegakgaler) H4B2 3HD PATRIOT (vga) E nd o + . 
1421 2DD F-29 (vga) J360 tDD SUPER CONTRA (ega) EB Em e ido 
Ji27 100 FALCON (cga) H436 6HD TASK FORCE 1942 (vga) J0O34 1DD BARBARIAM (cgalegahor) 
HOS5 SHD FALCON 30 (vga) TWLIGHT 2000 (vga) 1258 3D0 BRUCELEE LIVES (egalega) 
H265 2HD FALCONS3 O MISSION DRAGON NINJA (cgalaga) 
1435 6DD FLIGHT OF INTAUDEA (ogakga) DOUBLE DRAGON (cgatan) 
J130 20D PLKGHT SIMULATOR 3 0 (coaMrg) DOUBLE DRAGON Il (cega) 
J13t 20D FLIGHT SIMULATOR 4 O (cga/og) 115t 3DD DOUBLE DRAGON ! (sgaNga) 
Ht15 1HD FLIGHT SIM 4 sonarios H4st 1HD DOUBLE DRAGON IN (vga) 
J966 2DD GUN SHIP (cgaloga) H328 1HD FIRST SAMURAI fvga) 
Hi91 SHD CARMEN SÂNDIEGO DELUXE (vga) | H122 1HD WOLFENSTEN 3-0 (vga) HO64 3HD GUN SHIP 2000 (vga) J145 2DD GOLDEN AXE (cgaNgaMer) 
J086 1DD CARMEN SANDIEGO EUROPE (ega) J771 300 X-MEN (cgairga) H395 2H4D GUN SHIP 2000 MISSION Jt83 1DD KARATEKA (cga) 
J831 30D CARMEN SANDIEGO TME (oghga) [Esse ar H096 1HD MEGA FORTRESS (vga) J746 1DD NINJA GAIDEN (cgaloga) 
J924 1DD CARMEN SANDIEGO N USA (ega) : J$74 2DD MIG 29 (cgaNga) 1391 1DD NINJA RABBIT (cgahga) 
Has4 11HD DARK LANDS (vga) J74S 1DD MIBANAR (cega) J257 1DD POP GORN (ega) J644 400 PANZA KICK BOXXING (vga) 
HIBA GHD DARK SEED (vga) E J781 30D RAIL ROAD TYCON (cgahga) H148 1HD TRISTAN (986 Nga H073 fHD PITFIGHTER tvga) 
1468 BDD DRAKKHEN (cgavgaho) premia cai Hi73 2HD REDBARON (va) BESERREISOS RESELLER J274 2DD RASTAN SAGA (ega) 
H378 4HD DUNE tfvga) JS8s 1DD 4x4 OFF ROAD RACING (cga/og) 1413 ADD SECRET WEAPONS LW (vga) - o! :B a E = GR 18 AE 566 2DD RENEGADE (ogaNga) 
H240 SHD FIVEL (vga) 1111 1DD ACTION FIGHTER (cos/egatan) 1007 4DD SIMANT (vgahor) a REPRISE RAND J295 20D SHINOBI (cgahga) 
H427 IHD GALLEONS OF GLORY (vga) JO17 tDD AFAICAN RALLY (ega) 1958 2DD SIMCITY (coa) H060 1HD AMARILO SLIM POKER (vga) J515 3DD STREET FIGHTER MAN (cgaNga) 
HAS2 9MD GOBLINS (vga) o H323 4HD CARA DRIVER (306498) 4297 2DD SIMCITY (vga) J663 1DO BILHAR 30 (cgaNgaher) J338 200 STREET FIGHTER (cgaiaga) 
H297 fHD HOUSE OF HORRORS vga) 1304 1DD CISCO HEAT (cgakga) JB! 4DD SIMCITY FUTURE (vga) J$16 10D BLACK GAMMON (cgaNga) H461 S5HD STREET FIGHTEA Ii (vga) 
HO67 AHD INDIANA JONES ATLANTIS (vga) J09! 2D0D DAYS OF THUNDER (cgakga) 1176 4DD SIMCITY GRAPH ANCIENT (vga) 959 1DD CANASTRA (cga) 3367 4DD TARTARUGAS NINJA (cgaloga) 
H:3 3HD KGB (vga) Jt24 1DD F-40 (ega) 571 4DD SIMEARTH (vga) J262 1DD DOMINO (egaloga) J$98 BD0 TARTARUGAS NINJA 2 (vga) 
H302 GHD KING'S QUEST VI (vga) J609 2DD FERRARIF- (cgakga) H417 1HD SPECTRE (vga) 1265 1DD DRAW POKER (cga) Hilf 1HD TARTARUGAS NINJA 3 (vga) 
2DD LEISURE SUIT LARRY 1 (ega) 1383 1DD FIRE AND FORGET (coa) 1026 9DD STRIKE ACES (vga) f477 1DD JIMMY WHITES SNOOKER (vga) JO! 4DD TONGUE OF FATMAN (cgair ga) 
9HD LEISURE SUIT LARRY 1 (vga) Jt33 1DD FORD SIMULATOR (cga) 386 1DD THE HUNT OCTOBER (cega) 247 1DD PCPOOLS CHALLENGE (cga) H149 1HD WRETLE MANIA (vga) 


ATENDEMOS SEU PEDIDO ATÉ ÀS 21 HORAS POR TELEFONE 


JfO7 2DD DUCKTALES (egateça) 

Ht55 SHD FREE DC (vga) 

JJ42 IDD FLNTSTONES (cgatega) 

H116 1HD GODS (386498) 

Jt49 2DD HORA DO PESADELO (cgataga) 

1041 3DD HORROR ZOMBIES (vga) 

Jt15t 1DD HOSTAGES (ega) 

JSB8 10D ILHA DISNEY (ega) 

Jt74 1DD INDIANA JONES (cgalega) 

J!75 2DD INDIANA JONES 2 (cgalegahor) 

H298 1HD JOE & MAC (286Nga) 

H449 2HD LURE OF THE TEMPRESS (vga) 

213 1DD MARIO BROSS frga) 

HOB8 HD OUT OF THIS WORLO (vga) 

245 (DD PAPERBOY (cega) 

H09S tHD PAPERBOY 2 (ega) 

1302 2DD PRE HISTORIC (agaNga) 

JM43 3DD PREDATOR 2 (egakga) 

J268 2DD PAINCE OF PERSIA (cgairga) 

H468 1HD PRINCE PERSIA EDITOR(cgar ga) 

H469 SHD PRINCE OF PERSIA 2 (vga) 

272 2D0D PAMBO 3 (cga) 

H426 1HD RISKWOODS (vga) 

J280 1DD ROAD AUNNEA (egaloga) 

281 1DD ROBOCOP tega) 

J292 2DD ROBOCOP SPECIAL (cga) 

Ht43 5HD ROGER RABITT 2 (vga) 

H442 2HD ROGERWECO (vga) 

J305 10DD SPACE ACE (cgakga) 

1391 120D SPACE ACE 2 (cgaNça) 

H326 2HD SPEAROF DESTNY (vga) 

J$78 2DD SPIDERMAN (cgaNga) 

HI40 2HD THE ROCKTEER (vga) 

H1078 02HD YO JOE J$72 4DD THE SIMPSONS (vga) 

H1078 04HD GREAT NAVAL BATTLE 2 JA GDD THE SIMPSONS 2 (vga) 

ESSENOS o A ESSaRODE HI83 1HD THE SIMPSONS vi SPACE MUTANT 

HOSf 1HD THE TERMINATOR 2 (vga) 

seen e S975 1DD TICO E TECO (cgaloga) 

ALONE IN THE DARK (rga J564 1DD TOMA JERRY (cgaloga) 

H97 GHD AMAZON (vga) 1294 6DD WRATH OF DEMON (vga) 





























































































































































































































































J026 1DD ARKANOIO 2 (cega) 
J340 1DD ARKANOID 2 (agahga) 

1982 1DD BANANOID (va) 

4209 1DD MACADAM BUMPER (ega) 
4244 1DD MASTER BLASTEA (oga!PC-XT) 
5597 1DD NIGHT MISSION (eça) 

4250 1DD PIMBALL COLLECTION (PC-XT) 
































































































































CLASSIC SOFT TEL/FAX 


RUA JOÃO CORDEIRO, 495 - FREGUESIA DO Ó - SÃO PAULO 


FAÇA SEU PEDIDO: Por telefone, fax ou carta. 

» FORMAS DE PAGAMENTO: 

A) SEDEX à cobrar, você só pagará quando retirar o pedido no correio da sua cidade. 
(Lernbramos que os serviços dos correios são caríssimos) 

E; CHEQUE NOMINAL À CLASSIC SOFT LTDA,, para sua comodidade e economia recomendamos fazer o 
pedido por cheque nominal pois você recebe seu pedido em casa. 

C) DEPÓSITO BANCÁRIO: Unibanco - ag. 137 - conta 113 444-4 em nome de Classic Soft 
Bradesoo - ag 117-1 - conta 98741-7 em nome de Classic Soft - enviando xerox do depósito junto ao pedido. 
pesca drsrtland (Registrada) pedidos até 18 discos.....R$2,80 (Preço somente para pagamento em cheque 


8/5-4644 


L. - CEP 02960-000 


(011) 


CAPIT 





PROMOÇÕES PC 


10 Jogos ou aplic. ganhe um grálie c/ dieco. 
50 Jogos ou apilc. ganhe 10 grátis c/ disco 














DISCO 5 1/4 HD C/ GRAV............... R$ 2,00 
DISCO 5 1/4 DD C/ GRAV............... R$ 1,50 
PARA COMPRA ACIMA DE 20 DISCOS 
PAGAMENTO EM DUAS VEZES: 

metade no ato, metade para 15 dias após. 









APLICATIVOS DE DOMINIO PUBLICO E SHAREWARE PARA PC/XT/AT 
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PROGRAMAS ERAM Ut] AO91O 1DD ANSI PAINT - editor grafico, usa tabela asc. AO879 OD CHART - programa para engenharia siatrica. 
. AO906 100 CHARTS UNLIMITED - Integra graficos « texto. AH909 1H0 EASE CASE 1.67 - software de engenharia. 

W0252 1DD ABOVE & BEYOUNO - administra Informações pessoais. AO907 DD FINGER MAPS 1.01 « edita mapas com dados 6 Informações. AQB76 1DD NET WORK - criação e analise de circuitos eletronicos. 
W0239 1DD ANIMATE FOR WINDOWS + Imagens animadas. AQ906 1DD FINGER PAINT 2.0 - editor grafico facil uso, otimo. PSPIGE - simulador de circuito eletronico. 
W0238 10D ASTRONOMY CLOCK - horas astronômicas e mundiais. AO90S 1DD FINGER VGA - processador de Imagens, pinta « anima. SAR ABC E quia de resistor, cum em Ohma. 
WH253 tHD ASTRONOMY LAB - gara eventos astronômicos simultâneos. AO903 20D FLOW DRAW 2.2 » editor de Fluxo gramas, mapas ... novol] OF NT: ; a 
WO270 1DD BANG BANG - jogo de estratégia para 2 jogadores. AOg02 1DD HI-RES RAIMBOW - editor grafico. (cga) ERR: ZECA TUE OS 
W0237 1DD BIZ WIZ - calculadora financeira. AQ901 1DD LEONARDO (cga) - editor grafico c/ contrução de sildes. AQ96I 1DO AG HUNTER - Es qualidade referente a telefones. 
WH230 IHD BMP COLECTION 1 - pacote de telas BMP. AQ900 10D MAC PASTE 2.10 - editor grafico, otimo. AO985 1DD ADRESS MANAGER - maia direta, telefones, endereços. 
WhH23t tHD BMP COLECTION 2 - mais telas. AOB98 IDD PAINTERS APPRENTICE - facil uso. ferramenta p/ pintar. AQ982 1DD AMORTIZATION - faz calculos financeiros e estimativas. 
W0268 IDD BODFOR WINDOWS - Jogo de raciocínio com palavras. AH899 1HMD PAINT BOX - editor grafico. AO9TO DD BUSINESS ANALYSIS - programa financeiro e estatístico. 
W0254 10D BOX PLOT - calcula a frequência de resposta do falante. AOB97 1DD PARTY DOT - gerador de desenhos artísticos. AQ989 DD CLIENT NOTE FILE - manipula Informaçãões sobre cllantes. 
W0255 IDD BUILDER - cria Iconas para documentos. AOB96 1DD PCART4.O tese) - Eca Pici o deal uso AD971 10D CONSTRUCTION EST.- estima material e custo p/ construção 
WH264 10D CAD VANTAGE - poderoso cad para windows. + E PA E UTP OS SER AM8I6 1HD CONTACT PLUS - agenda de telefones e compromissos. 
W0236 1DD CHEMICAL FOR WINDOWS - modelo de moléculas em 3d. : : Po" 6º AO967 DD EASY DIAL 3.6 - programa para uso com modems. 
AHB20 IHD EXPLOSIV WINDOWS/DOS - fontes graficas p/ monitor. AOS91 1DD ANYANGLE 2 65. “estudo dos triangulo, nova versao! AH981 1HD EZ FORMS EXECUTIVE - editor de Formularios. 
W0240 1DD FINANCIER PLUS - organiza orçamentos, financiamentos ... AM893 1HD CADET - editor de texto pí uso com AUTO CAD. AhH986 1HD EZ FORM FIRST 1,1 - mestre para criação de formularios. 
W0256 1DD PRACTAL PAINT - programa Interativo p/ projetos graficos AMHB9? HD CURVE DIGITIZER - versatil editor grafico. AM980 1HMD EZ FORMS LITE 1.5 - editor de formularios. 
W0269 1DD GAME COLECTION 1 - três jogos de raciocínio tipo tetris. AOB9O IDO DICOGO 3.0 - gara coordenadas geometricas em 2D. AHB22 HO FAST BUCKS - controle as finanças de casa. 
W0235 1DD GIF 2 BMP - converte telas .GIF para .BMP, AOB69 DD DRAFT CHOICE 1.51 - nova versao do otimo cad. AO983 1DD FINANCE ANALIZER 2.0 - calcula emprestimos, depositos... 
W0234 1DD HP CALCULATOR - calculadora HP para windows. AHBIB 2HD ENVISION PUBLISHER (VGA) - dektop publishing, excelente! AO964 1DD FIND AREA CODE - procura codigos de telefones nos EUA. 
WH258 IHD INCONTACT - completo administrador de contatos. AHB94 1HD HYPER SLIDE - apresenta « cria slides, usa telas AUTOÇAD AO968 2D0D FONE 6.1 - forneca precos de chamadas Internacionais. 
WH265 2H0 INSIDE COREL DRAW - vários utilitários para windows, ADB9S 1DD LAYOUT - criação de desenhos e famamentas p/ manutenção AO965 OD FONE BOOK 3.0 - organize sua agenda telefonica. 
W0233 1DD IQ TEST FO WINDOWS - teste de QI. AOBBB 1DD MEGA DRAW 4.0 - ferramenta p' desenhos e animações. AM824 1HD FORM GENERATOR - editor da texto cí caracteres graficos. 
W0259 1DD LASER TAME - utilitario para impressoras à laser. AHMB31 4HD PC DRAFT CAD 3,6 - poderoso cad. AO808 10D LABEL MAGIC 3.01 - editor de etiquetas graficas. 
W0260 1DD MATAGRAF V2.4 - gera curvas matematicas. AO884  40D PC KEY DRAW 3.76a - versatil sistema grafico, novoi! AO984 1DD LOANCALC.- calcula mensalmente pagt* de amprestirsos 
woz6z 10D METRIC CONVERTER - conversor de medidas métricas. AO6B3 1D0D PRINT CAD 1.14- emulador de piorter para cad. AQ972 1DD PC AREA CODE 3.0 - procura areas das cidades dos EUA. 
WhH261 1HD MICAG LINK - pacote da comunicação para modem. AO635 1DD RECUASIVE REALM 3.0 - sistema p/ criar fractals. AO973 1DD PC BID 2.1 - preco estimado em contratos e trabalhos. 
W0263 1DD MONEY SMITH - controle seus talões da cheque. AOBB? 10D QUESTV3.1- editor a bela em m 3d, sua, AO974 200 PC ESTIMATOR - slabora tabelas de precos. 
W0232 1DD MYCATS-qgato queficacaçandoo cursor. 0 ESEC A PII AA AO9B8 3DD PC MAIL 2.92 - maia direta, excelente, 
W0245 10D PAINT SMCP PRO - converte exibe altera 6 imprima imagens e LES. 5 AH976 IMD PHONE 2.20 - agenda telefonica c/ nomes e enderacos. 
W0251 1DD RGCK FORD - editor profissional de cartões. Ao952 DO BETTER EVESIGHT - tudo Ebró os emas & $4u3 musculos. AD966 1DD PHONE MAN - agenda de enderecos a telefones. 
W0250 DD SYNC IT «faz transterência de arquivos entre micros. AD9S6 DD BISIM - Imita eco sistamas naturais. AO978 20D REGIT 4.2 - transforma seu pc em uma caixa registradora. 
W0267 DD TETRIS 30 FRACTAL - tetris em três dimensões. AO955 10D CHEM PACK - completa tabeia periodica. AO992 3DD df CMARTING 3.11 + lide da pe ea dons 
W0249 1DD TOUCHTYPE TUTOR - trelne sua datilografia, excelente, AO95B 1DD CHEMICAL 4.2 - cria moldes de moleçulas 3d, nova versão. Os ADDING - dora 
W0244 DD XWCRLD CLOCK - horas de todos 03 países do mundo. AO9S7 1DD CHEMVIEW - animação molecular em 3D. e aa th 7 
w0247 DD WHOOP IT UP - maximiza as funções de som dentro do wind. AO954 10D ELECTRON - tudo sobre eletrons e eletricidade. : am PROGRAMAS EM PO! STUGU ES 
WH248 1HD WIN ABC - Introdução no computador para crianças. AO959 100 ELEMENT STUDY AID - tudo sobre os elementos quimicos. A0390 1DD ADM. ESCOLAS E AGA. - sistema para escolas + academias. 
W0242 2DD WIN GRAB - para Imprimir endereços em envelopes. AO821 4DD FAMILY TREE - efetua calculos geneticos. A0561 100 AGENDA - agenda complata com manual am portugues. 
WH246 IMD WINFIN - doze programas para análise financeira. AO823 1DD FLAGS - bandeiras de todos 03 paises 4 estados. AO004 1DD AGENDA - agenda de compromissos. 
Wri241 IND WINSPELL - taste de orto AHO25 IHD GEO CLOCK (vga) - atlas digitalizado. A0S32 1DD AMIGO (cga) - codigo de defesa do consumidor. 

E Tn go Pa o FT | Pod 7 AO960 DD HAZADOUS CHEMICAL - analise de compatibilidade quimica. A0008 1DD ASTHAL (zodpc) - faz calculos s mapas astrologicos. 

- ENRRLENA LADA, AOBOS IDO LEARN TO SING - ansina 0 alfabeto usado pelo mudos. AD655 IDD CADASTRO DE CLIENTES - cadastro de cliantas. 

AH927 HD ADVENTURE TOOL KIT - para cias aionigas: AOBIO DD LOTUS LEARNING + ensina a usar a planilha lotus 123. AO025 3D0 CONSTITUICAO ELETRONICA - constitulcao brasileira de 68. 
A0926 DD ALPHABET GAMES - alfabeto para crianças, pre-escola. AO829 DD NATIONS OF WORLD - estatisticas geograficas do paises. A0484 2DD CONTABILIDADE - sistema de contabilidade. 
A0925 DD AMAND LETTER LOTTO - Jogo p/ crianças, cores e Intras. AO961 1DD PC CALIB- calibra concentração de substancias químicas. A0447 IDD CONTAS A PAGAR 8.2 - contas a pager.(Compasso) 
A0924 1DD ANIMAL MATH - aprenda a contar, somar subtrair ... AO832 1DD PC FASTYPE (cga) - otimo curso de datilografia. AO369 IDD CONTAS A PAGAR/RECEBER - contas a pagar e receber. 
AD922 1DD ANIMAL QUEST (vga) - jogo para crianças, excelentel. AO914 1H0 THE HEART - tudo sobre o coração humano. A0764 DD CONTAS A RECEBER 8.2 - contas a receber.(Compasso) 
AH923 1HD ANIMATED ALPHABET (ega'vga)- otimo p/ aprender inglas. AO038 1DD VACATION PLANNRE - Informações e mapas dos EUA e Canada | AO763 IDD CONTROLE BANCARIO - controle suas financas.(Compasso) 
AHB26 1HD ANIMATED MATH (aga) - aprenda a contar com figuras. Ao962 DD WA TOR « simulação de predadores e presas. A0779 DD CONTROLE DE ESTOQUE 8.2- otimo contr/sstoque. (Compasso) 
AH928 MD ANIMATED SHAPES(aga/vga)- p/ Identificação de figuras ORA LOCADORES: COSMICO CONTABILIDADE - sistema de contabilidade. 
AH929 IHD ANIMATED WOROS(ega'vga)-aprenda Ingles c/ figuras e sons EM PNR À GRIPTO - criptogratador de programas. 
AoB42 ADD BERT'S DINOSSAUROS - cria palsagens e voce pinta. ALBUN MASTER - versatil catalogador de album. IDD CUSTO & FATURAMENTO - tudo para controlar sua firma. 
A0936 DD BOAT BOX - otimo Jogo para crianças. AO872 1DD BOOK LIBRARIAN - catalogador de livros profissional, A0S69 IDD DAP 1.1 V147 -tira as senhas de jogos. 
A0932 1DD BRAINSCAPE - adventure em Ingles. AH875 1HD BUCK FILE - otimo programa p/ colecionadores. AO766 1DD DISK INDEX - catalogador de disquetes. 
A0933 1DD BAANDON'S LUNCHBOX « progr. p/ Introdução so teclado. AO8TO IDD CASSETE MASTER - cataloga fitas c/ funções de Impressao. A0785 IDO ELETRO - executa orcamento de projetos sistricos. 
AOB44 DD CATCHEM (vga) - otimo jogo para crianças. AHB74 IHD CASSETEI - sistema para catalogar fitas K-7, A0787 IDD EXTOK 2.09 - controle de estoque fisico « financelro, 
AO934 1DD CHILDREN'S GRAPHICS - para desenhar e contar. A0871 10D COIN FILE - sistema de inventario p/ coleções de mosdas. Ao768 1DD FICHARIO ELETRONICO - banco de dados, agenda... 
AOBI3 DD CLOCK AND MOUSE - aprenda a ver horas. A0B69 DD COLLECT! - versetil sistema banco de dados. A0o762 IDO FLUXO DE CAIXA 8.2 - sistema de Fuxo de caixa. (Compasso) 
AO815 4DD COININ THE BOX - Jogo para crianças, soma. AOBS8 1DD FOR ANTIQUE DOC.- p'catalogar antigos 6 raros documentos A0496 1DD FOLHA DE PAGAMENTO - sistema de folha da pagamento. 
A0921 1DD CRAZY SHUFFLE - otimo Jogo ds memoria. AOB67 1DD FOR COMIC BOOK - programa para colecionadores de livros. A0388 IDD FOLHA DE PAGAMENTO - outro otimo folha de pagamento. 
AO827 DD EGA COLOR BOOK - telas c' desenhos p/ crianças pintarem AO866 IDD FOR GUN COLLECTORS - para colecionadores de armas. Ad242 1DD GUIA PAULISTA - guia de hoteis, lazer, restaurantes ... 
AO935 1DD EGA MOUSE PAINT (EGA) - 29 figuras p/ pintar. Aogo? INTELICAT » catalogador de disquetes. A0781 3DD INFO 2000 - Introducaa a Informatica. 
AO805 1DD FUNNELS & BUCKETS » Jogo com contas matematicas. MOVIES - banco de dados para Filmes. A0O656 1DD LDSK - faz etiquetas p/ disco com diretorio. 
AH931 IMD JOHN'S ANIMATED - diversão para crianças. Es 0067 10D LOTO DESDOBRADO - faz sorteio da loto podendo imprimir. 
Ao828 1DD KID PAINT (ega) - telas para crianças pintarem. gi : Ao766 IDO MALA DIRETAS.2 - super maia direta. (Compasso) 
AH930 1HD THE ANIMATED MEMORY (aga/vga) - Jogo de memoria. AOB43 ID BARTENDER 1.1 - 200 receitas detida é ESA: AO069 DD MALA DIRETA PRO BASE - sistema de maia direta. 
AO839 IDO WORD GALLERY - aprenda Inglas com desenhos. AO951 1DD BIGRHYTHM - gera lista de blorritimo mensal. AG760 1DD MANUAL DOS SISTEMAS - manual dos sistemas da Compasso. 
ADEi4 DD WORD PROCESSING FOR KIDS - editor de texto p/ crianças. | AO920 1DD COMPUTER BAKER « 99 receitas p/ forno. Banco de dados. A0426 1DD MULTIMALA 1.2 - sistema de mala direta, 
AHO40 1HD WORD RESCUE - Jogo de ação, monte palavras. AH915 1HD DIET AIO - plano de dieta computadorizada, banco dados. Ad497 IDD PG POLILOT - sorteio da loto e loteria esportiva. 
AO841 1HD WUNDER Bock (voa) - logo pera onça & desenhos AO950 1DD DIET TEST » controls da peso. AQWs20 DD PRONTO - fichario elatronico. 
RS 4 : AO919 1DD EDNAS'S COOK BOOK - completo sistema para receitas. AO099 1DD SAMI - fantastica agenda de compromissos. 
DR AO940 DD EKG - Interessante apresentação envolvendo corpo humano. AO539 100 SENA 91 - sorteio de Jogos para sena. 
ACE ASTRONONY - tudo FE o sistema solar, AQ939 10D EMS - tecnicas de emergencia medica. AO646 300 SENA4200 - faz sortelos e combinacoss da sena. 
AO859 1DD ASTROCLK - relogio astronomiço. AO917 1DD FAST FGODS - lista nutricional c' seus valores proteicos AHBO1 IHD SIS. CONTROLE BANCARIO - controls bancario. 
AOB6O DD ASTROL 96 - calcula o zodiaco, posição dos planetas ... AO938 1DD FLOWER REMEDY PROGRAM - ensino sobre as fores. AHBOZ IHO SIS. CONTROLE FINANCEIRO - controle financeiro. 

.AO861 IDD ASTROMICAL EPHEMERIS - fornece mapas astronomicos. AO916 1DD GOURMET RECIPES - 66 diferentes receitas em formato TXT. A0767 10D SISTEMA CONTABIL - sistema de contabilidade integrado. 
AO85T 1DD COSMOS 8.07 - simulação astronomica, estilo planeterio. AD946 DD HEADACHE FREE - Informaçãõos relativas a dor de cabeca. AO105 IDO SISTEMA CONTROLE ESTOQUE + controle de estoque. 
AO8S5 200 DEEP SPACE 3D - produz mapa estelar. AH918 1HD HEALTH AIDE - orientação nutricional. AO777 DD SISTEMA IMOBILIARIA - sistema para imobiliarias. 

ADBS4 DD EARTH WATCH - exibição de graficos da terra a lua. AD913 IDD HOME BARTENDERS GUIDE - receitas de bebidas e drinks. AO444 1DD SISTEMA PADRAO CONTABIL. - sistema de contabilidade. 
AD653 DD GRAVITY SIMULATOR - simula gravidade entra 0a planetas. AD945 1DD INSULIN prog. p/ ajudar na raguiagem de insulina usada AOS7S IDD SUPER LOTO MASTER - sorteio da loto. 
A0BS2 100 JUPITOR SATELLITE SIM. - simulação e exibição de Júpiter AQ944 1DD KINETICS - ajuda o medico no controle da doses e drogas. A0788 DD TBAV 6.004 - anti-virus em portugues, 
AOBSO 1DD LAUNCHER - informações sobre orbitas. AO949 1DD NON-MEDICAL - tecnicas p/ superar sofrimento e dores. AQ113 1DD TUTOR DOS 4.01 + tudo sobre o dos 4.01. 
AH6S! IHD MISSIONTO MARS - todas Informações sobre marte. AO948 IDD NURSE WORKS 2.0 - series da enfermagem c/ utilitarios. Aotta IDD TUTOR LOTUS 123 - aprenda a utilizar a famosa Pimaha, 
AOB4D IDD MOCNS OF JUPITER - posições de Jupiter e suas tuas. AO947 IDD PRESCAIPTION ASSISTANT - prescrição de etiquetas. WNE - editor de textos em portugues. 
AO848 1DD NAVAGATION JUPITOR - programa p/ navegação marinha. AH943 1HMD SLIMMEA - redução de peso p/ nivel da colestero! alto. 
AOB47 tDD PLANETS - utilitaro c/ Informaçãos sobre 03 planetas. AH953 1HD THE ALTERNATIVE HEALTH - varios assuntos sobre saude. 
ADB46 1DD SLICON SKY - exiba mapa ceiestial e posição dos planetas AO942 1DD THE STRESS TEST - determina seu nivel de stress. 
pág da SKY BASE 2000 - cria mapas e Imagens do céu. AO941 10D WHY YOU SMOKE - avalia « reiata procedimento de furar. AT = N B) E M O S 
1 







SKY GLOBE 3.0 - A, mapas das estreias q constelações, 


256 DRAW (vga) - rot Es excelente, 
ANATHER PROGRAM (vga) - animações, ela aod e som, 
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YOUR NTRTONIST À nutr ao enaliso q planelamento 


A-FILTER - calculo p/ resistor « valores p/ filtros. 
es drdsdei progra lado e engonparia clvil. 
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TODO O BRASIL 








RUA JOÃO CORDEIRO, 495 - FREGUESIA DO Ó - SÃO PAULO - CAPITAL - CEP 02960-000. 
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Guia de Sobrevivência na Selva do Video 


Conheça detalhes técnicos do padrão VGA e aprenda como 
identificar o padrão VESA de sua placa 


José Laurindo Chiappa 





Afamília de micros IBM-PC e compatíveis é muito elogiada 
por suas características positivas, tais como: boa perfor- 
mance para a sua classe, baixos custos, flexibilidade de 
uso, grande número de softwares disponíveis, etc. O lado 
negro, porém, reside em algo que pode ser resumido numa 
frase: ausência de padrões. 

A explicação é simples: ao contrário dos Amiga e dos 
Macintosh, o PC não usa chips customizados e não tem 
grandes segredos de arquitetura; desse modo, uma plêiade 
de fabricantes e laboratórios de pesquisa diariamente 
trazem à luz novos componentes mais aperfeiçoados e mais 
baratos. Um exemplo é a placa de vídeo VGA: quando 
originalmente lançada, previa somente 16 cores no seu 
modo de máxima resolução, número insuficiente para um 
uso mais categorizado, de modo que o mercado exigiu e os 
laboratórios se apressaram em lançar placas VGA mais 
aperfeiçoadas. ; 

Infelizmente, porém, a guerra entre os fabricantes os 
levou a criarem cada um o seu chipset, sem uma maior 
preocupação com compatibilidades. 

Chegamos, assim, à situação atual, em que um usuário 
desavisado adquire à duras penas uma placa SuperVGA 
fotorealística, com milhões de cores e megas de RAM mas 
tem que usar o seu software preferido com 16 frustantes 
cores porque a sua placa não é compatível com o dito 
programa. Na outra ponta da corda, o pobre programador 
tem que escrever dezenas de drivers, um para cada placa de 
vdeo do mercado. SOCORRO !! 


ISTO É UM TRABALHO PARA VESA!! 


Em 1.992, entra em cena um novo elemento na sopa de 
letrinhas do mercado PC: VESA - Video Eletronics Standards 


18 MICRO SISTEMAS 





Association, Associação de Padrões Eletrônicos e Vídeo, 
uma associação que representa os interesses de mais de 
60 fabricantes de computadores e componentes, incluindo 
alguns gigantes do mundo PC. As regras emanadas deste 
comitê tentam padronizar os serviços e modos de acesso ao 
vúdeo VGA-extendido, o que traria um pouco de ordem e 
tranquilidade a programadores e usuários. Embora nem 
todos os fabricantes tenham aderido (e em especial os de 
segunda linha que abundam no mercado aqui da santa 
terrinha), é já um padrão respeitável. 

Para que os seus programas, caro leitor, também 
participem destes novos tempos devem estar cientes destas 
ditas regras. Visando ao meu próprio uso, criei uma unitque 
demonstra o modo de se acessar e pesquisar hardware 
VESA de vídeo VGA, utilizando acesso direto, de modo a 
agilizar operações de escrita/leitura - alguém aí pensou em 
games? 

Aproveite bastante, e mãos à obra ! 


==) JOSÉ LAURINDO CHIAPPA é formado em Tecnologia de 
= Processamento de Dados pela Universidade Mackenzie, 
ME trabalha como Consultor/Programador e programa em Ba- 
sic, Clipper, C e Pascal. Tem 25 anos de idade e atua na área há 
8 anos. 


EMAANDIAZANE 


(* DEKEESEESNAEEFFDASHEEFEFEFESMANEEFZEZZZnNaCRES 
Esta UNIT contém Rotinas de Escrita 
direta para placas VGA formato VESA, 
e também de checagem de firmware/ 
hardware de vídeo VESA 


Autor J. Laurindo Chiappa 
(c) Devil in Miss Jones Soft - 
Abr/94 
*) 


(SR-) 
UNIT FWrite; 
INTERFACE 


06/ 





 USES Crt; 


“- VAR 
ScreenWidth, 
ScreenHeight : Byte; 
"PROCEDURE FastWrite(S : String; co, ro, at 
Byte); 
- PROCEDURE FasterWrite(S:String; co, ro, at 
-* Word); 
' PROCEDURE CheckWidthHeight ; 
IMPLEMENTATION 
TYPE 
WordArray = ARRAY[0..65520 DIV 2] OF 
Word; 
VAR 
Display : *WordArray; 

Crt Cols : Word ABSOLUTE $0040:$004A; 
Crt Rows : Word ABSOLUTE $0040:$0084; 
PROCEDURE FastWrite(S : String; co, ro, at 

: Byte); 

VAR 
Start, WordAttr : Word; 
N : Byte; 

BEGIN 


: Display* [start+pred(N)] := 


Start:= pred(ro)*ScreenWidth + pred(co); 
WordAttr := Word(At) SHL 8; 

FOR N := 1 to length(S) DO 

WordAttr + 


'“ord(S[N]); 
"END; 


' 
| 
: 
| 
| 
f 

'R 

| | 









PROCEDURE FasterWrite(S:String; co, ro, at 
: Word); Assembler; 


ASM 

MOV AX, ro ( 
) 

DEC AL ( Estes 
cálculos servem Dp/ ) 

SHL AL, 1 ( passar o 
offset inicial ) 

MUL ScreenWidth ( para o 
registro AX ) 

ADD AX, co ( 
) 

DEC AX ( 

MOV DI, Word(Display) ( DI agora 
aponta p/ o ) 

ADD DI, AX ( offset 
inicial. ) 

MOV AX, Word (Display+2) 

MOV ES, AX ( ES contém o 
segmento ) 

PUSH DS 

LD8S SI, 8 ( DS:SI aponta 
para a string ) 

XOR CX, CX 

MOV CL, [SI] ( Tamanho da 
String é em CX ) 

INC SI 

MOV BH, Byte(At) ( Atributo em 
BH ) 

GLoop: 

MOVSB ( Move um 
caracter p/ área de Vídeo ) | 
MOV ES: [DI], BH ( .. ando 


respectivo atributo ) 
INC DI 
Loop Loop 
POP DS 
END; 





PRENSA E Tm PS RG ATEU a ES “a 


POETA IME A CITA AY O SE mi A CA ABL 


o 


PROCEDURE CheckWidthHeight; 


BEGIN 


ScreenWidth := Crt Cols; 
S$creenHeight := succ(Crt Rows); 
END; 


(** INITIALIZATION **) 


"BEGIN 


CheckWidthHeight ; 
IF LastMode = 7 THEN 
Display Ptr ($B000, 0) 
ELSE Display := Ptr($B800, 0); 
END. 


SPECO e AVDA a Wc” su 


Poet NE ci A RM o To a SD TRE e E O A TR E PP RT ni 





Este programa demonstra como reconhecer 
e utilizar uma placa VGA/SuperVGA 
de padrao VESA; a funçao da rotina é 


“útil para se detectar modos de re- 


soluçao nao-padrao (como é sabido, os 


"Serviços padrao do PC só usam re- 


soluçao de no máximo 640x480 em 16 


- Cores ou 320x200 em 256 cores). 


Obs : as rotinas foram testadas com 


' placas VGA Trident com 512k, que 


'. comitê VESA. 


atendem às especificaçoes 1.2 do 
Se o programa nao identi- 
ficar corretamente uma placa VESA, 


contate o fornecedor para obter um 


upgrade ou um novo release de driver. 


*) 


' PROGRAM VesalInfo; 
' USES Crt, FWrite; 


E 


| 
| 
| 
| 
| 
| 
| 





TYPE 
CharList = ARRAY[0..65520] OF Char; 
CharListPtr = “CharList; 
VMList = ARRAY[0..65520 DIV 2] OF 
Word; 
VMListPtr = AVMList; 
InfoBuffer = RECORD 


VESAsignature : ARRAY[1..4] OF Char; 
VESAversion : Word; 

OEMSt ring : CharListPtr; 
Capabilities : LongInt; 
VideoModePtr : VMListPtr; 
TotalMemory : Byte; (Somente 

em placas VESA 1.1 ou maior) 
Reserved : ARRAY[0..235] OP Byte; 
END; 
ModeInfo = RECORD 

ModeAttributes : Word; 
WinAAttributes : Byte; 
WinBAttributes : Byte; 
WinGranularity : Word; 

WInsize : Word; 
WinASegment : Word; 
WinBSegment : Word; 

WinFuncPtr : Pointer; 
BytesPerScanLine : Word; 

( O restante existe SOMENTE se 

ModeAttributes AND 2 <> 0) 

XResolut ion : Word; 
YResolution : Word; 

XCharsSize : Byte; 

YCharsSize : Byte; 
Number0OfPlanes : Byte; 
BitsPerPixel : Byte; 
* Number0fBanks : Byte; 





MICRO 


SISTEMAS 


E ARS, RR DIR 7 e A TS ER A e A PR E a TO ; 






Byte; 
Byte; 
Byte; 
Byte; 
ARRAY [0..224] OF 


MemoryModel 
BankSize 
Num0Of ImagePages 
Reserved 
Filler 
Byte; 
END; 


VAR 
MBuffer 
Buffer 
VidMode, CmpX, CmpY, 
Y, CmpMode 


ModeInfo; 
InfoBuffer; 


Word; 
: Boolean; 
Char; 
ARRAY [0..15] OF 


: String; 


Function HexW(W : Word) : String; (* 
Retorna string Hexa de 4 Bytes *) 

Const 

Digits : Array[0..$F] of Char = 
'0123456789ABCDEF” ; 


Begin 
HexW[0] := t4; 
HexW[1] := Digits[hi(W) shr 4); 
HexW [2] := Digits[hi(Ww) and $FJ; 
HexW[3] := Digits[lo(W) sbr 4]; 
HexW [4] := Digits[lo(W) and $FJ; 
End; 


FUNCTION Support sVESA : Boolean; Assem- 
bler; 
ASM 
MOV AH, 4Fh 
MOV AL, 00h 
PUSH DS 








Sentia 


CÁLCULO 
ESTRUTURAL 


: | — vigas, lages, pilares, sa- 
E patas e treliças — R$ 25,00 


ANDAMENTO DE PROCESSOS - Para 

A Advogados - cadastro de autor/réu, tipo de 

causa e ação, comarca, andamento no fórum. 

- 8" Data de pagamentos, audiências, leilões, dis- 
tribuição, remessa ao tribunal, julgamento, etc. - R$25,00 





CONSULTÓRIO MÉDICO — Cadastro de pacientes 
comcampos para registro de consultas/reconsultas, 
ciclo evolutivo do tratamento, históricos, medi- 
camentos receitados, internações, etc. - R$25,00 


OUTROS SISTEMAS: | 
Contas a Pagar/Receber — R$ 25,00, Controle de Obras 
— R$ 25,00, Lista de Preços — R$ 25,00. 


DISPOMOS TAMBÉM MEDIANTE CONSULTA DE: 
Folha de Pagamento, Livros Fiscais, Correção Monetária, 
Vídeo Locadora, etc... 















FONE: (054) 381-1752 
FAX (054) 381-2668 






POP ES 
LEA DI, Buffer 
INT 10h 
CMP AL, 4Fh 
JNE QNoVesa 
MOV AL, 1 
RET 
GNoVesa: 
MOV AL, O 
END; 
FUNCTION Get VESAVidMode : WORD; Assem- 
bler; 
ASM 
MOV AH, 4Fh 
MOV AL, 03h 
INT 10h 
CMP AH, 0h 
JNE GFailed 


Grailed: 
MOV AX, OFFFFh 
END; 


FUNCTION GetModeInfo(M : Word) : Bool- 
ean; Assembler; 
ASM 
MOV AH, 4Fh 
MOV AL, Olh 
MOV CX, M 
PUSH DS 
POP ES 
LEA DI, MBuffer 
INT 10h 
MOV AL, O 
CMP AH, 0h 
JUNE GFailed 


LANÇAMENTO 
DE R$ 52,50 POR R$ 32,00 
OU R$ 12,50 CADA 
HOME SERIES 


HOME COOK - Cadastro de receitas separado por tipo de pratos (peixe, came 

bovina, frango, peru, porco, etc.) e seleção dos pratos (salgados, doces, 

dietéticos, bebidas, sorvetes, etc.). Super completo. 

HOME BIBLIO - Controle completo de biblioteca. Cadastra livros, revistas, etc. 

Por título, ano de lançamento, autor, editora e campo para SINOPSE. 

HOME FONE - Agenda telefônica simplificada para cadastro Fone/FAX de seus 

amigos e/ou empresas. 

Rae GAME - Controle os cartuchos de video games por título, gênero, sistema, 
Cc 


HOME MAIL - Mala Direta, com cadastro por área de atuaçãolsorviços (editoras, 
médicos oficinas, etc.). Imprime etiquetas para end ento selecionado por 
qualquer campo do arquivo. Pode ser usado como tro de cliontas. 
HOME MUSKC - Controle completo de suas coleções de K7/CDsA.Ps por ritmos, 
autores, gravadoras, etc... Com campo para comentários. 
HOME RADIO - Para radicamadores. Controle completo de QSO's com cadastro 
de “macanudos" com quem você fala. Emite etiqueta para envio de cartões QSL's. 
Registro hora local/UTC, posição de antena, frequência, etc... Com campo para 
comentário QSO. 
HOME SOFT - Controle completo dos programas que você possui, com campo 
para produtor, distribuidor, versão, tipo, quantidade de disquetes, vencimento da 
taxa de manutenção, etc... Super completo 
HOME VIDEO - Livro-so dos guias impressos. Controle você mesma os vídeos 
assistidos. Cadastro com titulo do vídeo, diretor, produtor, distribuidora, ano de 
lançamento data em que foi assistido, gênero, etc... Com campo para SINOPSE. 
Super completo. 
São nove pegam para as mais variadas áreas. O sistema HOME SERIES (9 
ramas) 6 acompanhado de um disco de 1.2 Mb cheio de programas 
REWARE como brinde. 








INC AL 
GFalled: 
END; 


PROCEDURE ShowModeInfo(M : Word); 
BEGIN 
Write(' *,'$' + HexW(M),'':5); 
IF (NOT GetModeInfo(M)) OR 
(MBuffer.ModeAttributes AND 2 = 0) 
THEN 
WriteLn(' informaçao indisponível !') 
ELSE 
WITH MBuffer DO 
BEGIN 
IF MemoryModel = O THEN 
BEGIN 
Write('Text','':5); 
IF XResolution * YResolution 


CmpX * CmpY THEN 
BEGIN 
CmpX := XResolution; 
CmpY := YResolution; 
CmpMode := M; 
Cmp8x8 := YCharSize = 8; 
END; 
END 
ELSE Write('Graf','':5); 
Write (XResolutlon:4,'x'); 
Write(YResolution:4,'':6); 
Write (Power2 [BitsPerPixel]:4,'':8);| 
WriteLn(XCharsSize:3,'x',YCharsSize); | 
END; 
END; 


PROCEDURE SetSuperVGAMode(M : Word); 

Assembler; 
| ASM 

MOV AH, 4Fh 

MOV AL, 02h 

MOV BX, M 

INT 10h 
END; 


BEGIN 
ClrScr; 
IF NOT SupportsVesa THEN 
BEGIN 
WriteLn('“Esta placa nao suporta 
VESA'); 
Halt; 
END; 
VidMode := Get VESAVidMode; 
IF VidMode = SFFFF THEN 
BEGIN 
WriteLn('A tentativa de obter modos 
de video VESA falhou 11.'); 
Halt; 
END; 
IF Buffer.VESAsignature <> 'VESA' THEN 
BEGIN 
Write (“Li o info block VESA, mas 
“3: 
WriteLn('a assinatura VESA nao está 
presente.'); 
Halt; 
END; 
Write (“Placa suporta VESA. O Modo 
Corrente é '); 
WriteLn(VidMode) ; 
WriteLn; 
WITH Buffer DO 
BEGIN 
Write('Versao VESA : 
', Hi (VesaVersion)); 
WriteLn('.',Lo(VesaVersion)); 


Write('String OEM A E. 
N := 0; 
REPEAT 
Write (OemString* [N]); 
Inc (N); 
UNTIL (OEMString*[N] = &0) OR 
(N > 256); 
WriteLn('“'); 
IF VesaVersion > $100 THEN 
WriteLn('Memoria Total : ”', 
TotalMemory*64,'K') 
ELSE WriteLn('Check de memoria Total 
Indisponível em VESA version 1.0'); 
WriteLn; 
Power2[0)] := 1; 
FOR N := 1 to 15 DO 
Power2 [N] := 2*Power2 [pred(N)); 
um O; 
CmpMode := O; CmpX := 80; CmpY := 
25; 
WHILE VideoModePtr*[N] <> S$FFFF DO 
BEGIN 
IFP N MOD 20 = O THEN 
BEGIN 
Write('Aperte <Enter>.'); 
ReadLn; 
Clrscr; 
Write (' Modof Tipo 
Resoluçao”); 
WriteLn(' Cores 


| Tam. Char'); 


WNriteln; 
END; 
ShowModeInfo (VideoModePtr* [N]); 
Inc(N); 
END; 
WriteLn; 
END; 
IF CmpMode <> O THEN 
BEGIN 
Write('Por em '*,CmpX,'x',CmpY, 
* modo Texto (8/N) '); 
REPEAT 
CH := UpCagse (ReadkKey); 
UNTIL (CH = '8') OR (CH = 'N'); 
WriteLn(CH); | 
IP CH = 'S8' THEN 
BEGIN 
IF Cmp8x8 THEN 
TextMode (LastMode OR Font8x8B); 
SetSuperVGAMode (CmpMode) ; 
Window(1,1,100,75); 


CheckWidthHeight; 
FOR Y := 1 to CmpY-1 DO 
BEGIN 
Str(Y:4, S); 
S := S+' “2; 
REPEAT 
S = 8 +41 ne 


UNTIL Length(S) > CmpX; 
S[0) := Char (CmpX); 
FastWrite(S, 1, Y, S$0F); 
END; 

Str (CmpY:4, S); 

FastWrite(S, 1, CmpY, SOF); 

FastWrite('Aperte <Enter>”, 

CmpX-15, CmpY, SBF); 
ReadLn; 
TextMode (VidMode) ; 
END; 
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VGA 256 cores 





Rotinas gráficas para sua placa VGA 256 cores, em Turbo € 


Victor Sant'Anna 


Resolvi fazer uma “limpa” em meus disquetes de programas e, 
como tenho o péssimo hábito de esquecer o que os nomes dos 
programas significam, tive de compilar novamente diversos, deles 
para descobrir o que cada um deles fazia. Comecei a verificar que 
um grande amontoado de rotinas em € que acumulei em meus 
disquetes durante os últimos meses poderiam servir para algum 
outro programador e resolvi organizar tudo. 

Fiquei surpreso com o grande número de bobagens que escrevi, 
mas consegui achar algumas rotinas que serão úteis para 
programadores iniciantes em Turbo C. 

Vamos começar falando do modo VGA de 256 cores, resolução 
320x200. Uma coisa que sempre me intrigou é como alguns 
programadores conseguiam acessar esse modo em BASIC e o meu 
Turbo € 1.5 não mencionava nada além dos modos (EGA) 640x200, 
640x350 e 640x480, 16 cores. O modo de 320x200x256 estava 
também disponível no Microsoft C e no Quick €, mas eu só tinha o 
Turbo. O modo 320x200 sempre me pareceu o mais interessante 
pois era, aparentemente, o mais parecido com o modo CGA que 
sempre utilizei em meus programas gráficos. Além disso, apesar 
dos modos disponíveis me deixarem com 16 cores, não era possível 
alterar a palette com suavidade e quantidade de cores que o modo 
de 256 cores proporcionava. 

Com 256 cores eu poderia trabalhar com telas coloridas 
digitalizadas e com 1.6 cores (EGA=ECA?) não. Mais tarde descobri 
que havia disponível, nos EUA, para compradores do TurboC, o driver 
de 256 cores "VGA256.BGI". Mas aj já era tarde, pois eu já tinha 
terminado de escrever as rotinas que seguem. Pois apresento 
agora, gentil público leitor, a rotina MODO, que pode chamar o modo 
19 (320x200x256) e a rotina PONTO, que coloca pontos natela com 
qualquer uma das 256 cores: 

/* ade oe be ade je ade he ade oe ae je de né À 
modo(int mode code) 
[ 

union REGS r; 

r.h.al = mode code; 
r.h.ah=0; 
intB6(0x1 O,&r &r); 
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) 


dai ape oe fe fe ade ode de ade je ade ale ode */ 

/* ade oe oe fe oe fe ae ae de fe ae ade */ 
ponto(int x, int y,int cor) 

( 

char buf; 

buf=(charjcor; 

pokeb(0xÃOOO, y*320+x, buf); 
J 


/* ade e e e e e e ae e e ak VÁ 


A rotina “modo” permite que chamemos qualquer modo gráfico 
(inclusive texto, CGA, EGA e até Super VGA, desde que você saiba 
os números corretos). Para chamar o modo VGA o número é 19. Para 
voltar ao modo texto (antes de terminar o programa) o código é 3. 

Para usar a rotina PONTO os parâmetros devem ser as 
coordenadas X (0 a 319) e Y (0 a 199) desejadas e a cor (O a 255). 

Como pode se notar, no modo 19, um poke na área 0xÃOOO (que 
tem 64K) é o mesmo que “pokear” diretamente a tela. Isto só 
funciona no modo 19, por isso as rotinas aqui listadas não 
funcionarão se você usar outro número. À área de memória 0xÃOÕOO 
funciona como se fosse uma grande matriz de 320x200 (1 byte) ou, 
se preferir, um grande vetor de 64000 bytes. Com isto feito, se você 
tem programas em QBASIC (1.0 ou outro) nesta resolução em VGA, 
pode gravar a tela com BSAVE e depois usar estas informações para 
montar uma rotina que leia sua tela no “C”, dando os pokes certos 
nos lugares certos. 

Voltando ao nosso programa: como a unidade básica para | 
qualquer desenho é o ponto, você já pode, em teoria, desenhar 
qualquer coisa na tela. Basta criar novas rotinas que chamem a 
rotina PONTO e... pronto! 

A rotina linha, que vem a seguir é um exemplo disso. Adaptei-a 
de uma rotina CGA (do livro: Computação Gráfica para IBM PC, de 
Leendert Ammeraal, editora Atlas). Aproveite seus conhecimentos 
de trigonometria e tente fazer rotinas para desenhar círculos 
elipses, etc. 


/* ade ode fe of ae ode de af ale ade ade ae “/ 


linha(int xi, int y1, int x2, int y2, int cor) 
int x,y t,e,dx, dy, denom,xinc=L ,yinc=1; char buf; 


int vertlonger=0,aux; 

buf=(charjcor; 

dx=x2-x1; dy=y2y1; 

if(dx<OM xinc=-1; dx=dx; ) 

itdy<OX yinc=-1; dy=dy; ) 

ifdy>dxX vertlonger =1; aux=dx; dx=dy;dy=aux;) 


denom=dx<<1; 
t=dy<<1; 
e=dxx=x1; 
y=y1; 
while(dx— >=0) 
[ 
pokeb(0xÃOOO, y*320+x, buf);: 
i(e+=t)>0) 
Il 
iftvertionger)x+=xinc; 
else y+=yinc; 
e-=denom; 
) 
if(vertionger) y+=yinc; 
else x+=xinc; 
) 
) 


/* ade ae ae ae e e ae de be fe aje ade */ 


Com as rotinas acimajá dá para brincar um pouco, mas, paranós, 
é insuficiente. Queremos mudar as cores da palette. Acrescente ao 
programa anterior a rotina PALETTE que irá ser usada mais tarde: 


/* ae ae a ade a ae de ae he ae e ae */ 
pit(int cor, int ri, int gi, int bi) 
+ 

char pltb=0,r=0x00,8g=0x00,b=0x00: 
r=(charri; 

g=(changi; 

b=(char)bi; 

pitb=(charjcori; 

outportb(968, pltb); 
outportb(969,r); 
outportb(969,g); 
outportb(969,b); 

) 


/* ade ae ae e e ad e ae e ae ae ar À 


Agora podemos “brincar”: Coloque junto das rotinas acima a 
rotina “main” a seguir: 
/* *** EXEMPLO 1: Linhas e pontos *% kkk seia o 7 
finclude <dos.h> 
main() 


1 
int i; 


modo(19); 
for(i=0;i<300;i+-+) 

( 
ponto(rand()%20,rand()%200,rand()%256): 
ponto(300+rand()%20,rand()%200,rand()%256): 
ponto(rand()%320,rand()%20,rand()%256): 
ponto(rand()%320,180+rand()%20,rand()%256): 
linha(50+rand(/%220,40+rand()%120,50+rand()%220, 
40+rand()%120,rand()%256): | 


) 
getch(); 
modo(3); 
) 


/* e o e oe o ae ae e e a a ade ae be je ae ae je je */ 


Vá ao menu “compile” e dê um “Build all" e “Run” no programa 
acima (Se você é um programador experiente de programas gráficos 
em Turbo €, deve estar acostumado a linkar a biblioteca de funções 
gráficas. Desta vez não! Você não deve ter nenhum arquivo de 
projeto, como seria normal, ou seja: graphics. lib não entra em nosso 
programa). 

Depois de observar resultado, mostrar para os amigos, etc. 
modifique o programa e observe as possibilidades interessantes 
que a mudança de palhete de 256 cores permite: “degradês” em 
diversas cores, que dão a impressão de sombreados e efeito 
tridimensional. Mude a rotina “main” para: 


[* eee Exemplo 2: palhete suave **%* »/ 

finclude <dos.h> 

main() 

| 

int id; 

int palette[256)[3]; /* para armazenar cores */ 

modo(19): 

for(i=0O;i<256;i++) 

[ 

pit(i,0,0,0); /* ficando preto */ 

linha(i,0,i+60,199,i): 

) 

for(i=0;i<64, i++) 
[ 
palete[i][0]=i; 
palete[i][1]=0; 
palete[i][2]=i; 
plt(i,i,0,i); 
palete[64+i][0]=63; 
palete[64-+i][1]=i; 
palete[64-+i][2]=63i; 
pit(64-+i,63,1,63); 
palete[128-+i][0]=63i; 
palete[128-+1][1]=63; 
palete[128-+i][2]=i; 
pit(128-+i,03-,63,i); 
palete[192+i]0]=0; 
palete[192+])[1]=63i; 
palete[192+][2]=63i; 
pit(192+1,0,63-,63); 
) 

getch(); 

for(j=63;)>=0;j)-—) 
for(i=0;i<256;i++) 
! 


if(palete[i][0]>))palete[iJ0]—-; if(palete[il[1]>j)palete[iJ[L |: 
if(palete[ill2]>j)palete[iljt21-—: 
pit(i,palete[iJ0),paletefil/1],paleteli]/2)): 

) 
modo(3); 


/* ae ode ae oe o e e ade be e ae ae ae ae e e e ade fe a he he ade a À 
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Bonito, não? Após admirar o trabalho, não pare por aqui. 
Aproveite para criar rotinas do tipo “putimage” e “getimage”. 
Não é tão difícil já que a área 0xAOOO funciona como uma 
grande matriz. Modifique a rotina ponto para ler (peekb) e 
retomar a cor de um ponto e você terá uma rotina “getpixel”! 
Assim, aos poucos, vá descobrindo como recriar todas as 
funções gráficas da biblioteca BGle logo você estará competindo 
com a BORLAND! 

Para terminar, se você é do tipo trabalhador, reescreva 
novamente a rotina “main”: 


/* “eek Exemplo 3: rosto digitalizado 22x1/*/ 

finclude <dos.h> 

main() 

( 

int x,y,i=0,)=0,k=0; 

int tx=22, ty=17; 

char rosto[374]=( 

0x08 , 0x05, 0x06, 0x13, 0x11, 0x14, 0x42, 0x46, 0x54 
, Ox64 , 0x68, 0x69, Ox69, 0x69, Ox67, 0x69, 0x69, Ox0O7 
, Ox07 , Ox0E, 0x21, 0x13, 0x09, Ox1F, 0x52, 0x51, 0x46 
| 0x52 , 0x69, Ox6A, Ox6A, 0x6A, 0x69 , Ox6A, OxOD, OxOE 
| Ox19 , 0x42, 0x1 7, 0x06, Ox17, 0x52, 0x57, Ox52, Ox4C 
, 0x40 , 0x67, Ox6A, Ox6A, Ox6A, Ox6C, Ox10, 0Ox16, 0x32 
| 0x51 ,0x17,0x18, 0x48, 0x47, Ox5D, Ox57, Ox52, 0x3C 
| 0x40 , Ox67, Ox6B, Ox6B, 0x6C, Ox1 E, 0x32, 0x4E, 0x58 
, OxiF, Ox0C, Ox3B, 0x47, 0x57, Ox5DD, Ox57, Ox4D, 0x38 
| 0x40 , 0x65, Ox6C, Ox6C, 0x35, 0x4E, 0x58, 0x56, 0x2B 
, 0x18 , 0x4B, 0x4E, 0x5D, Ox5D, 0x57, 0x4A, 0x33, 0x46 
| 0x47 , 0x65, Ox6C, 0x45, 0x5O, 0x58, 0x58, 0x47, 0x42 
, 0Ox4E , 0x5D, Ox5D, Ox5D, 0x5B, 0x4A, Ox3E, 0x4C, Ox4A 
, 0x45 , 0x60, 0x41, 0x51, 0x58, 0x58, 0x56, 0x4E, 0x5D 
| 0x62 , Ox61, 0x58, 0x53, 0x51, 0x4E, 0x4A, 0x51, Ox4A 
, 0x30 , 0x46, 0x56, Ox5E, Ox5C, 0x58, 0x58, 0x5D, Ox5C 
, Ox5C , 0x58, 0x52, 0x50, 0x51, Ox3C, 0x49, 0x52, Ox4A 


0x4D , 0x56, 0x61, Ox5C, 0x55, 0x5C, OxDF, Ox5F, Ox5F 
| Ox58 , 0x58, 0x49, 0x51, 0x33, 0x22, 0x51, 0x56, 0x4C 
, Ox51 ,0x58, 0x51, 0x4D, 0x56, 0x5C, 0x5E, Ox61, Ox5C 
, Ox5F , 0x4D, 0x50, Ox2C, 0x22, 0x3C, Ox56, 0x49, 0x55 
| Ox5C , 0x32, 0x27, 0x4A, 0x56, Ox51., 0x4D, 0x4D, 0x58 
, 0x44 , 0x49, 0x28, Ox2E, 0x28, Ox51., Ox4D, 0x58, 0x56 
, Ox1i2 , Ox1 E, 0x52, 0x5D, 0x58, 0x4F, 0x44, 0x49, 0x23 
, Ox4A , 0x28, 0x28, 0x26, 0x51, 0x4D, 0x58, 0x42, Ox0A 
| Ox00 , Ox57, 0x62, OxDE, 0x56, 0x46, 0x41, Ox2A, 0x49 
| OxiA , 0x34, 0x29, 0x51, 0x5A, OxDE, Ox17, OxOF, Ox66 
, Ox57 , Ox5F, Ox61, Ox5E, 0x46, Ox2F, 0x44, Ox3C, OxiD 
| Ox34 , 0x2C, 0x58, 0x59, 0x4E, Ox14, 0x03, 0x43, 0x4E 
, Ox5F , Ox5F, Ox5E, 0x51, 0x41, 0x51, 0x3C, 0x22, 0x25 
| Ox44 , Ox5C, 0x58, 0x30, Ox1B, Ox15, 0x36, 0x4E, Ox5F 
| Ox63 , 0x61,0x51,0x4D, 0x56, 0x33, 0x25, 0x3C, 0x55 
| 0x5C , 0x4D, 0x2B, 0x21., 0xOB, Ox1F, 0x53, 0x61, 0x5F 
+ Ox5C , 0x4D, 0x56, 0x50, 0x20, 0x33, 0x4D, 0x56, 0x56 
| Ox3D , Ox1F, Ox1iC, Ox0D, 0x4A, 0x61, Ox5F, Ox61, Ox5A 
| 0x4C , 0x50, 0x51, 0x40, 0x56, 0x56, 0x4D, 0x39, 0x37 
, OxiE , 0x19, 0x30, 0x5C, OxDE, Ox5C, 0x58, 0x51, 0x49 
| Ox4C , 0x58, 0x58, 0x56, 0x45, 0x24, 0x11, 0x35, 0x27 
, Ox32 , Ox51, 0x58, 0x58, Ox5C, 0xD6, 0x4C, Ox3A, 0x49 
, Ox4D , 0x50, 0x41, 0x27, 0x12,0x04, 0x31,0x31, 0x37 
| 0x49 , 0x49, 0x4C, 0x4C, 0x49, Ox3F, Ox2D, Ox3A, 0x3C 
» Ox35 , 0x24 , 0x12 , 0x06, 0x02) ; 
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int pal[109)[3]=( 
0x1A,0x1€,0x26, 
0x06,0x05,0x08, 
0x07,0x07,0x0C, 
0x08,0x09,0x13, 
0x10,0x0D,0x0A, 
0x0OF,0x0E,0x0E, 
0x0C,0x0E,0x1D, 
0x12,0x14,0x15, 
0x13,0x16,0x17, 
0x0F,0x14,0x23, 
0x0F,0x15,0x26, 
0x11,0x16,0x27, 
0x11,0x17,0x28, 
0x12,0x18,0x2B, 
0x12,0x19,0x2C, 
0x12,0x19,0x2F, 
0x17,0x1C,0x2B, 
0x17,0x1B,0x31, 
0x1F,0x21,0x22, 
0x17,0x1E,0x2F, 
0x19,0x1D,0x33, 
0x17,0x1D,0x34, 
0x1A,0x20,0x2F, 
0x1A,0x20,0x31, 
0x22,0x25,0x28, 
0x23,0x23,0x2E, 
0x1F,0x24,0x33, 
OxiF,0x25,0x36, 
0x25,0x27,0x34, 
0x25,0x27,0x37, 
0x21,0x28,0x39, 
0x28,0x2A,0x37, 
0x2D,0x2D,0x33, 
0x2A,0x2C,0x3B, 
0x37,0x35,0x34, 
0x3A,0x3B,0x3C, 
0x3E,0x3E,0x3E 
h 
modo(19); for(x=0;x<109;x++)plt(x,pal[x]2], palixÃ1),palíx]0)): 
for(x=0;x<tx;x++) 

for(y=0;y<ty;y+-+) 


0x03,0x02,0x04, 
0x06,0x06,0x0B, 
0x08,0x09,0x10, 
0x0A,0x0C,0x0E, 
0x09,0x0A,0x15, 
0x0C,OxOF,Ox1A, 
0x0D,0x10,0x1F, 
0x10,0x13,0xiE, 
0x11,0x0D,0x30, 
0x13,0x0E,0x31, 
0x0E,0x15,0x2A, 
0x0E,0x16,0x2B, 
0x16,0x12,0x35, 
0x18,0x13,0x34, 
0x18,0x14,0x35, 
0x13,0x1A,0x2F, 
0x15,0x1C,0x2D, 
0x15,0x1D,0x2F, 
0x19,0x1C,0x31, 
0x20,0x21,0x27, 
0x1A,0x1F,0Ox2E, 
0x18,0x1F,0x32, 
0x19,0x1F,0x34, 
0x1D,0x22,0x31, 
0x1C€,0x22,0x33, 
0x1D,0x23,0x36, 
0x1F,0x24,0x35, 
0x22,0x25,0x37, 
0x21,0x26,0x37, 
0x21,0x28,0x37, 
0x24,0x29,0x39, 
0x28,0x2A,0x39, 
0x2A,0x2€,0x39, 
0x34,0x33,0x37, 
0x3A,0x3B,0x3B, 
0x3C,0x3D,0x3E, 


0x03,0x01,0x01, 
0x06,0x06,0x09, 
0x07,0x07,0x0E, 
0x08,0x0A,0x11, 
0x09,0x0A,0x13, 
0x0A,0x0C,0x19, 
0x0D,0x10,0x1D, 
0x0D,0x11,0x20, 
0x0E,0x13,0x283, 
0x0F,0x14,0x25, 
0x12,0x16,0x283, 
0x14,0x10,0x33, 
0x16,0x11,0x33, 
0x19,0x14,0x32, 
0x14,0x1A,0x29, 
0x1C,0x15,0x34, 
0x13,0x1A,0x30, 
0x1C,0x17,0x36, 
0x15,0x1C,0x31, 
0x15,0x1C€,0x32, 
0x17,0x1E,0x341, 
0x1A,0x1F,0x31, 
0x28,0x25,0x21, 
0x1A,0x20,0x33, 
0x18B,0x21,0x35, 
0x1C,0x22,0x35, 
0x1D,0x23,0x37, 
0x21,0x26,0x35, 
0x1F,0x26,0x38, 
0x22,0x27,0x38, 
0x24,0x28,0x37, 
0x24,0x2A,0x39, 
0x27,0x2B,0x3A, 
0x2D,0x2F,Ox3A, 
0x36,0x35,0x3A, 
0x3C,0x3C,0x3D, 


[ 

for(i=10;i<320-tx;ir=tx* 2) 
for(j=10;j<200-ty;j+= 
pokeb(0xAO00,x-ri+(y+j))*320,rosto[k]); 

k++; 

) 
getch(); 
modo(3); 
A ade cafe be oe oe je oe fe je ade aje abe fo jo je je fe ade KT Á 

Se você tiver paciência e trabalhar direito, um belo rosto 

feminino (tirado de umatela digitalizada) deverá surgir em sua 
tela. Beleza! 
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RMÁTICA Tel:(011) 231-2367 


Av. Ipiranga, 345 - sala 1107 - São Paulo - SP CEP 01046-923 (Metrô República 


* PROMOÇÕES SEMANAIS : Consulte ! Telefone / Fax : 214 -2650 

* PREÇOS (Discos incluidos) : HD MAXELL = R$ 2,00/ DD VAT = R$ 1,50 

* TAXA DE CORREIO : A Cada 15 disquetes = R$ 2,50 (Carta Registrada) 

A cada 10 cópias com disco, ganhe 1 DD gravado à sua escolha. A cada 50, ganhe 9 ! 
* GARANTIA : 60 dias contra defeitos de gravação ou vírus. 

* SUPORTE TELEFÔNICO : Dicas de Jogos e instruções sobre aplicativos. 
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Pedidos: Por carta, telefone ou fax de: Pagamento: Envie um cheque nominali Catálogo Eletrônico: Envie um di 
Segunda a Sexta das 9:00 às 18:00 e aostia J&M INFORMÁTICA LTDA. no valort HD formatado ou R$1.80. 


Sábados das 10:00 às 17:00. Relacione otitotal de seu pedido, não se esquecendo; Catálogo Impresso: Gratuito. Peça já o 
nome, código e a quantidade de discosjide acrescentar uma Taxa de Correio afiseu com Jogos, Aplicativos e Multimedia | 


de cada programa. Se preferir, visite-nosjicada 15 disquetes. Não trabalhamo 
pessoalmente. com SEDEX a Cobrar, devido 
problemas com o Correio. 
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te UM cacastro e DEBEC 


Mário Leite 

Tempo de Visual Basic! Desculpem-me pelo 
deslumbramento, mas é inevitável. Essa linguagem veio 
preencher em nós, clippeiros, uma terrível sensação de 
vazio enquanto o tão prometido CA-Visual Objects for Clipper 
não aterrisa no mercado. Já recebi um “paper” muito 
interessante sobre a arquitetura do novo “Clipper for Wir- 
dows”: entretanto, na minha modesta opinião, acho que 
está demorando muito o lançamento desse produto. 
Enquanto isso descobri o Visual Basic 3.0 (VB), uma 
maravilha de linguagem do tipo que muitos programadores 
sonhavam: robusta , flexível, e além de tudo “for all 
purpose” no ambiente das janelas. 

Com a entrada do VB em cena (e em grande estilo), 
desfez-se um terrível complexo de inferioridade que a gente 
sentia quando via expostos nas vitrines das infoshopping 
aqueles calhamaços de Cm. Aliás, eu sempre me arretei 
com esses ++ ; parecem íons de Carbono ! E a pronúncia 
correta; seria C mais mais ou € plus plus ?! 

O pior de tudo era ter que aguentar aqueles caras de 
camisa social(?) de manga curta e gravata lendo o livro (em 
Inglês) e de vez em quando olhando a ralé por cima dos 
ombros ... Agente se sentia “destamaninho” !! 

Mas agora a coisa mudou; com o VB ficou muito fácil 
desenvolver qualquer tipo de aplicação. Sem mistérios ou 
complicações desnecessárias, ele resgata a credibilidade 
do nosso velho e bom Basic, aliada ao poder de 
implementação visual do Windows. 

Estão sendo apresentados excelentes trabalhos de 
divulgação dessa linguagem com seus fundamentos e 
conceitos básicos. Por isso, neste artigo não nos 
reportaremos de maneira didática sobre Controles, 
Propriedades, Métodos ou Eventos. O nosso propósito aqui 
é descrever um pequeno sistema sobre Controle de Pessoal, 
sem no entanto recorrer aos recursos oferecidos, por 
exemplo, pelo controle Data. Comeste exemplo mostraremos 
a grande flexibilidade da linguagem na sua integração entre 
a implementação visual e a implementação das linhas de 
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CADFUNC for Windows 


códigos das procedures. 

O nosso sistema, denominado CADFUNC, possui 
basicamente dois arquivos: CADFUNC.MAK (projeto) e 
CADFUNC.FRM (formulário). Além desses dois, existe O 
módulo externo CADFUNC.BAS (com declarações globais a 
nível de projeto). 

Na sua essência o sistema já é velho conhecido dos 
programadores: um menu de opções onde o usuário pode 
fazer vários tipos de transações com um cadastro de 
pessoal. Essas opções são : Exibir, Incluir, Excluir, Procurar. 
No entanto, a novidade é a possibilidade de incluir a foto do 
funcionário juntamente com os outros dados cadastrais 
num “campo” específico para isso. Esse campo (entre 
aspas), na realidade não se trata de um campo no sentido 
como é referido no mundo dos SGBDs; mesmo porque VB 
não é (ainda) um verdadeiro gerenciador de banco de dados 
(apesar de possuir recursos que o fazem brilhar também 
nessa seara; podemos citar, por exemplo, o ODBC ). De 
qualquer forma, todos nós sabemos que uma linguagem do 
tipo “for DOS “ e procedural tal como o Clipper-, não dispõe 
de recursos que sozinha possa manipular imagens (no caso 
do Clipper precisaria de bibliotecas externas, tal como a 
CLBC ou a ScanLib). Essa inserção de imagens (fotos, 
desenhos, ícones) é fácil de ser conseguida com o VB 3.0. 
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A figura 1 mostra o formulário do projeto com todos os controles usados. 


Caixa de Texto 1 (TxtNome) 
Label 1 (LblNome) 


exibe o nome do funcionário. 
rótulo da Caixa de Texto 1, 


Caixa de Texto 2 (T. xtMatricula) 
Label 2 (LbIMatricula) 


exibe a matrícula do funcionário. 
rótulo da Caixa de Texto 2. 


Caixa de Texto 3 (TxtSetor) 
Label 3 (LbISetor) 


exibe o setor do funcionário. 
rótulo da Caixa de Texto 3. 
Caixa de Texto 4 (Txtinforme) exibe informações sobre o 
funcionário. 


onde é exibida a foto do 
funcionário. 


Controle Picture (PicFunc) 


Botão de Comando Próximo 
(CmdProximo) 


para ver 0 próximo registro. 


Botão de Comando Anterior 
(CmdAnterior) 


para ver o registro anterior. 


Botão de Comando Retomo 
(CmdRetomo) 


limpa a tela e retorna ao menu 


Ainda na figura 1 vemos uma barra de menu com o título 
File; na verdade esse título possui os ítens que deverão ser 
acionados pelo usuário em tempo de execução: Exibir, 
Incluir, Excluir, Procurar e Sair. A tradicional opção Alterar 
não foi incluída; isto porque configurando a propriedade 
Enableddas caixas de textos como True podemos modificar 
seus conteúdos toda vez que o registro do funcionário for 
exibido. De resto, tudo aparece na tela de maneira auto 
explicativa. 

A satisfação que agente sente ao programar em VB é logo 
após o término da fase de Implementação Visual. Nessa 
etapa já podemos sentir o poder dessa linguagem; cada 
controle utilizado e disponível poderia ser objeto de um artigo 
inteiro. É nesse ponto que absorvemos perfeitamente a 
filosofia da programação “for Windows”, pois entende-se 
realmente o que significa Programação Orientada a Eventos. 
O usuário é quem decide os rumos da execução do 
programa, através de clicks numa opção ou sobre um botão 
de comando. Aliás, é esse o espírito de qualquer programa 
escrito para rodar no ambiente Windows: interface gráfica 
amigável com o usuário. 

Mesmo não sendo objetivo desse artigo os controle do 
VB, teceremos um rápido comentário sobre o controle 
Picture. O VB permite que coloquemos uma figura (desenho, 
foto, imagem) dentro do formulário, dentro de um Controle 
Imagem ou dentro de um Controle Picture. No presente 
trabalho, estamos colocando um desenho (feito com o 
Paintbrush) dentro de um Controle Picture -para simular a 
foto do funcionário- ; entretanto, poderia ser mesmo uma 
foto capturada com um Scanner. Essa “foto” foi salva como 
Bit MaP num arquivo do tipo .BMP: arquivo esse ligado 
* logicamente com o registro do funcionário através de sua 
matrícula. Desse modo a matrícula do funcionário sendo 
22902-1, então o arquivo de sua foto é 22902-1.BMP. Esse 


arquivo será carregado e a foto colocada dentro do Controle 
Picture PleFunc. 


ESTRUTURA DE DADOS DO SISTEMA 


O sistema acessa dois arquivos de dados: CADFUNC.DAT 
que contém Nome, Matrícula, Setor e Informes sobre O 
funcionário e arquivos *.BMP com as suas respectivas 
fotos. Todos eles devem ficar no diretório “C: CADASTRO” Ê 
A estrutura de dados do arquivo CADFUNC.DAT é a seguinte: 


FeldName Type Width 


Nome String 40 
Matric String 8 
Setor String 9 
Informe String 100 


Pode parecer a definição da estrutura de um arquivo 
formato .DBF, mas não é. Usamos a declaração Type para 
criar uma variável tipo definido do seguinte modo: 


Type Registro 
Nome As String*40 
Matric As String*8 
Setor As String*9 
Informe As String*100 
End Type 


Muito bem; mas... e a foto do funcionário, como será 
tratada ?! 

Como dito anteriormente, cada foto fica num arquivo 
-BMP (independente do arquivo CADFUNC.DAT). Para que 
seja colocada a foto dentro do Controle Picture no registro 
corrente, usamos a seguinte linha de código [Sub 
ShowCurrentPicture() ] : 


PleFunc.Picture=LoadPlcture(argFoto) , onde argfoto 
poderia ser o seguinte path: “C:NCADASTRON22902-1.BMP”. 


IMPLEMENTAÇÃO DAS LINHAS DE CÓDIGO 


A listagem mostra todas as definições usadas no projeto: 
controles, linhas de códigos dos eventos procedures (Sub), 
procedures de apoio e declarações globais a nível de 
formulário e de projeto. Segundo a convenção do VB, 
primeiro são apresentada as configurações dos controles 
e em seguida as linhas de códigos dos eventos procedures 
e procedures de apoio. As declarações globais do módulo 
CADFUNC.BAS foram listadas propositalmente no final 
devido ao fato do VB não listar normalmente essas 
declarações (por não fazerem parte do formulário). Os 
eventos procedures são aqueles cujas procedures (Sub) 
possuem um sublinhado ( ) logo após o nome do controle. 
Por exemplo, o botão Próximo tem o evento associado 
chamado Cllck; então, toda vez que esse botão for clicado 
a procedure Sub CmdProximo Click() será executada (aliás 
vale registrar queelae só elaseráexecutada: não esqueçamos 


que o VB é uma linguagem orientada a eventos !). As outras 


MICRO SISTEMAS 27 





procedures em cujo nome não aparece o sublinhado, ou Top =" 1320 
melhor, aquelas que não estão ligadas diretamente a sro ai False 
qualquer evento disparado pelo usuário, foram criadas para End 
: Begin CommandButton cmdRetorno 
darem suporte ao sistema (tal como uma procedure normal en o do cost 
ou uma UDF do Clipper). Height = 495 
Veja por exemplo a procedure ShowCurrentPicture(); ela ad E Fa 
é a responsável por carregar O arquivo matrícula.BMP ob =" 3420 
correto e colocar a foto do funcionário dentro da caixa de a ue Euros 
Controle Picture, de acordo com a matrícula que lhe é End 
l l s que sãoexecutas Begin CommandButton CmdAnterior 
passada. Existem, ainda, outras procedures q aPLIOE - “gAnterior” 
quando ocorrem eventos inerentes ao ambiente do VB. Por Height = 495 | 
exemplo, neste nosso sistema usamos à conhecida proce- air ' = aos 
E Le Tabindex - 
dure Sub Form Load(). Oevento Load (ligado ao formulário), Top =" 2520 
sempre ocorre quando esse é carregado (na partida do visible = O False 
programa); desse modo, usamos esse evento procedure E aa O Ro 
para configurar alguns controles (em tempo de execução): Begin CommandButton CmdProximo 
inicializar variáveis, abrir o arquivo de dados, etc. par : Pa 
Devido estarem razoavelmente documentadas, não Left = 5280 
comentaremos as procedures de maneira mais detalhada; e E sa 
entretanto como puderam notar por este pequeno exemplo, visible = O “False 
o VB possue recursos realmente fantásticos. Com os novos gen ARES = 1215 
recursos incorporados à versão Profissional, essa linguagem Begin TextBox TxtInforme 
tornou-se ótima opção para os desenvolvedores. e = al 
sé n o) LE) = 
| DDE, DLL, MDI, OLE, “Front Ends”, enfim, essa “sopa de MaxLength = 100 
siglas” que alguns gostam tanto de mencionar, ê uma a = E ira : 
“4 n , cro ars = 'Verticr 
barbada para o VB. Podemos desenvolver qualquer tipo Tabindex de id 
de sistema com ele. Imaginem o VB 4.0 rodando com o Top = 2040 
Windows 4.0 ! Assim nem precisaremos saber se a Dae E Re 
pronúncia correta é C mais mais ou € plus plus !!... End 
Begin TextBox TxtMatricula 
Height = 375 
MÁRIO LEITE é graduado e pós-graduado em engenharia Left = 840: 
pela PUC/RJ; trabalha atualmente na Mineração Caraiba MaxLength = 8 
= [tda como Chefe do Setor de Inf. Gerenciais; desenvolve TabIndex E - 
sistema para as áreas de produção e manutenção. Programa em ia 4ble E a o False 
Clipper, C, Quick Basic e Visual Basic. width = 1575 
End 
Begin TextBox TxtNom 
Height = 285 
Left = 840 
Begin Form FrmCadFunc pla E E 
det = “CADASTRO DE Top = 120 
ON. 08” as ' 
ClientHeight = 3690 e E no iscas 
CllentLeft = 1590 End 
ClientTop s 1935 Begin Label LblNome 
Re e E SO Caption = '“Nome:” 
Er E o Ea aos = 255 
LinkTopic = “Formi” api E = É 
psi = 0 'False Top = 120 
ScaleHeight = 3690 Visible = 0 'False 
cosa = da E AREAS = 615 
e Dn 
width = 6705 Be 
gin Label LblMatricula 
E a cod R Caption = "Matric:” 
sa E o Height =" 255 
ScaleHeight = 1545 E e 120 
Scalewidth = 1425 Top = 720 
e . co Visible = 0 'False 
Visible = O False pad = 615 
RA = 1455 Begin Label LblSetor 
Begin TextBox TxtSetor e fp E da 
Height = 375 CER E o 
Left = 840 E 
MaxLength = 9 ms E ao 
TabIndex = 2 5 
Visible = 0 'False 
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DATAGAME' 


MODEM INTERNO DE VIDEOTEXTO PARA PC XT/AT 


Placa de modem interna para ser conectada em qualquer dos slots do PC XT/AT/286/ 
386/486. Fácil instalação e baixo consumo. Acompanha manual de instalação e 
operação, e disquete com programa de acesso do videotexto homologado pela Telesp. 


MODEM EXTERNO (DE MESA) DE VIDEOTEXTO PARA PC XT/AT 


Portátil, de mesa, usa a porta serial do micro. Ideal para Laptops, possui leds 
indicadores de portadora, recepção, tránsmissão e ali mentação. Compatível com PC 
XT/AT e portáteis. 


MODEM DE VIDEOTEXTO PARA MSX 


Transmite e recebe em 1200/75. Discagem automática, rediscagem automática em 
caso de número ocupado. Contém software residente (Firmware) para operação no 
videotexto. Produto homologado pela Telesp. 


ESTABILIZADOR / FILTRO DE LINHA / BASE DE MONITOR 


Estabilizador de voltagem com capacidade de 800 VA / 1 KVA (volt amperes ou Watts), 
permite que a tensão de entrada caia até 95 volts, mantendo a saída estabilizada em 
110 volts. Sistemas de compensação de voltagem via circuito magnético, o que 
proporciona compensação de voltagem com ausência de picos de comutação na 
saída, fato comum aos estabilizadores convencionais. 


———— 
DESPACHAMOS PARA TODO O BRASIL 


DC [>>> 
DATAGAME ELETRÔNICA LTDA 


FONES : (011) 570-7471 E 574-8990 
ESTAMOS CADASTRANDO REVENDAS 





Width = 975 
End 
Begin Menu MnuFile 
caption = 
Begin Menu MnuExiblr 
Caption = 
End 
Begin Menu MnuIncluir 
Captlon = 
End 
Begin Menu MnuExclulr 
. Caption = 
End 
Begin Menu MnuProcurar 
Caption = 
* End 
Begin Menu Mnusep 
Caption = Uai 
End 
Begin Menu MnuSair 
Caption = 
End 
End 
End 


“grilo” 


“sgexibir” 
“pIncluir” 
“ceExcluir” 


“gprocurar” 


“pSaLr” 


|] D 


e mm 
* Seção de declarações gerais de CADFUNC.FRM 


: Declara variáveis que devem ser visíveis em 
todo o formulário. 

Dim NewMat As String 
um novo registro 

Dim Incluir As Integer 
de Inclusão 

Dim ExistMat As Integer 
matrícula já existente 
Dim NewRec As Integer 
novo registro 

Dim Flag As Integer ' 
visibilidade dos controles 
Dim ArgFoto As String 

foto 

Dim arqDados As String 
dados 

Dim arqgTemp As String 
temporário para swapping 
Dim RegFunc As Registro 
funcionário 

Dim FileNum As Integer * Número do 
arquivo (handle) 

Dim RecordLen As Long 
registro 

Dim CurrentRecord As Long 
Dim LastRecord As Long 

do arquivo 


* Matrícula de 
' Indicador 
+ Indicador de 


' Indicador de 


' Arquivo de 
* Arquivo de 
* Arquivo 


* Registro do 


* Comprimento do 


* Registro corrente 
* Ultimo registro 


É e e 


sub CmdAnterior Click () 


* Torna os controles visíveis 
Flag = 1 
ShowControles (Flag) 


* Se o registro corrente for o primeiro, 
avise o. 
; * usuário; caso contrário exiba-o e carregue 
oto 
If CurrentRecord = 1 Then 
Beep 
MsgBox “Início de arquivo 1”, 48 
Else 
SaveCurrentRecord 
CurrentRecord = CurrentRecord - 1 
ShowCurrentRecord 
ShowCurrentPicture (RegFunc.Matric) 
End If 


* Focaliza o campo TxtNome. 
TxtNome.SetFocus 


End Sub 
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4 


| Sub cmndPproximo Click () 


* Torna os controles visíveis 
' Flag = À 
: ShowControles (Flag) 


' Se o registro corrente for o último avise o 
usuário; 
: cago contrário exiba-o e carregue foto . 
If CurrentRecorá = LastRecord Then 
Beep 
MegBox “Fim de arquivo!”, 48 
Else 
gavecurrentRecord 
CurrentRecord = CurrentRecord + 1 
ShowCurrentRecord 
ShowCurrent Picture (RegFunc.Matric) 
End If 


: Focaliza o campo TxtNome 
TxtNome.SetFocus 


End Sub 


É 


Sub CmdRetorno Click () 


* Salva o registro corrente / Torna controles 
invisíveis. 

SavecurrentRecord 

Flag = 0 

ShowControles (Flag) 


: Atualiza o título da janela 
frmCadFunc.Caption = “CADASTRO DE 
FUNCIONARIOS” 


End Sub 


À a Se 


Sub Form Load () 


: Torna os controles invisíveis 
Flag = 0 
gShowControles (Fla) 


* Calcula o tamanho do registro e pega o 
* próximo handle de arquivo disponível 
RecordLen = Len (RegFunc) 

FileNum = FreeFile 


* Abre o arquivo para acesso aleatório. 

arqgDados = “C: (CADASTROCADEUNC. DAT” 

Open arqDbados For Random As FileNum Len = 
RecordLen 


: Calcula último registro/Preserva registro/ 
Atualiza título da janela. 

LastRecord = FileLen(arqgDados) / RecordLen 

CurrentRecord = LastRecord 

ShowCurrentRecorá 

SaveCurrentRecord 

FrmCadFunc.Captlon = “CADASTRO DE 
FUNCIONARIOS” 


End Sub 


É e e eo 


Sub MnuExcluir Click () 


“Atualiza título da janela / Torna controles 
invisíveis 

FrmCadFunc.Caption = “CADASTRO DE 
FUNCIONARIOS” 

Flag = 0 

ShowControles (Flag) 


* Declara variáveis auxiliares para a 
exclusão. 

Dim TmpFileNum 

Dim TmpRegFunc As Registro 

Dim RecNum ÀS LOng 

Dim TmpRecNum As Long 
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a CÓDIGO TÍTULO | PREÇO | 
AN 281 Tower of the Fear.............. R$ 39. | 





312 Day of Tentacle................ R$40. 
326 Put Put Joins the Parade.. R$ 45. 
344 Just Grandma and Me...... R$ 45. 
346 Mega Race....................... R$44. 
359 Mad Dog Mcree................ R$49. 
364 Night Owl's V.13................ R$ 44. 
409 Clipart Heaven 2...............R$49. 
463 Musical Instruments.......... R$ 69. 
496 Art Galer,.......................... R$69. 
25 Forever Browing Garden... R$ 60. 
571 Mad Dogll....................... R$ 76. 
978 Indiana Jones....................R$ 65. 
588 Bethoven 5" ....................R$70. 
595 Rebel Assault.................... R$65. 
657 HeliCab............................ R$80. 
685 Dracula Unleashed........... 
694 Critical Path....................... 


699 Ms Encarta....................... A 


Desejo receber os seguintes CD's Nº o o o 


Acrescer + R$ 5 por cada CD para custo do Sedex. Para O que estou enviando cheque 
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Dim Matrix As String 
Dim Found As Integer 


: Recebe do usuário a matrícula a ser 
excluida ; 

Matrix = InputBox$ (“Entre com & matrícula:”, 
“spxcluir”) 


: Se não entrar com nenhuma matrícula, sai da 
procedure. 
T£ Matrix = “” Then 
Exit Sub 
End If 


* Procura o registro com à matrícula a ser 
excluida. 
Found = False 
For RecNum = 1 To LastRecord 
Get tFileNum, RecNum, TmpRegFunc 
If Matrix = 
UCase (Trim(TmpRegFunc.Matric)) Then 
Founã = True * Achou o registro 
Exit For 
End If 
Next 


* Se o registro foi localizado, galve-o / 
Exiba-o / Carregue foto, 
* caso contrário, avise o usuário e sala da 


procedure. 
If Found = True Then 
Flag = 1 


ShowControles (Flag) 

CurrentRecord = RecNum 

ShowCurrentRecord 

ShowCurrentPicture (RegFunc.Matric) 
Else 

Beep 

MsgBox “Funcionário com matrícula “” + 

Matrix + “ não cadastrado !” 

Exit Sub 

End If 


: Se o usuário não confirmar a exclusão sai 
da procedure 
If MsgBox (“Exclui o registro corrente ?”, 4) 
<> 6 Then 
Exit Sub 
End If 


' Se o arquivo CADFUNC.TMP já existir e se 
for igual a 

* CADFUNC.DAT, então apague-o do digco. 

arqgDados = “C:1CADASTROICADFUNC. DAT” 

arqgTemp = “C:CADASTROCADFUNC. TMP” 

If Dir(arqgTemp) = arqgDados Then 

Kill arqTemp 
End If 


* Cria CADFUNC.TMP com o mesmo formato de 
CADPUNC. DAT 
TmpFileNum = FreeFile 


Open arqTemp For Random As TmpFileNum Len = 
RecordLen 


* Copia todos os registros de CADFUNC.DAT 
para CADFUNC.TMP, 
* exceto o registro corrente. 
RecNum = 1 
TmpRecNum = 2 
Do While RecNum < LastRecorã + 1 
If RecNum <> CurrentRecord Then 
Get tfFileNum, RecNum, TmpRegFunc 
Put FTmpFileNum, TmpRecNum, TmpRegFunc 
TmpRecNum = TmpRecNum + 1 
End If 


RecNum = RecNum + 1 
Loop 


* Exclui CADFUNC.DAT 
Close FileNum 
Kill arqDados 


* Renomeila CADFUNC.TMP para CADFUNC.DAT 
Close TmpFileNum 
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Name arqgTtemp As argDados 


* Reabre CADFUNC.DAT 

FileNum = FreeFile 

open arqDados For Random As FileNum Len = 
RecordLen 


: Atualiza LastRecord como anterior. 
LastRecorá = LastRecorã - 1 


s Se LastRecord for zero então, considere-o 
como sendo 
* o primeiro (e único) do arquivo. 
Tf LastRecord = O Then 
LastRecorã = 1 
End If 


' Se o registro corrente estiver fora do 
escopo, então 
* considere-o como sendo o último. 
Tf CurrentRecorá > LastRecord Then 
CurrentRecord = LastRecord 
End IÉ 


1 Apaga arquivo de foto do disco 

ArgFoto = “C:ACADASTRO” + 
Trim(RegFunc.Matric) + “.BMPº 

on Error GoTo Sem ArqgFoto 

Kill ArgFoto 


' Exibe registro corrente/Carrega foto/ 
Focaliza TxtNome. 

ShowCurrentRecord 

ShowCcurrentPicture (RegFunc.Matric) 

TxtNome.SetFocus 

Exit Sub 


Sem ArqgFoto: 
“Não existe o arquivo de foto 
Resume Next 


End Sub 


É Te e SS 


Sub MnuExibir Click () 


: Fecha arquivos / Torna controles visíveis / 
Focaliza TxtNome. 

Close 

Fiag = 1 

ShowControles (Flag) 

TxtNome.SetFocus 


* Calcula o tamanho do regletro / Pega 
próximo handle livre. 
RecordLen = Len (RegFunc) 
FileNum = FreeFile 


* Abre o arquivo para acesso aleatório. 
arqgDados = “C:YCADASTROICADFUNC. DAT” 


Open arqbados For Random As FileNum Len = 
RecordLen 


: Cago nenhum registro tenha sido incluido, 
calcula último registro 
If NewRec = 0 Then 
LastRecord = FileLen (argDados) / 
RecordLen 
Else 
LasgsRecord = NewRec 
incluido 
End If 


* Novo registro foi 


* Atualiza e exibe o registro corrente / 
Carrega foto 


CurrentRecord = 12 
ShowCurrentRecord 
ShowCurrentPicture (RegFunc.Matric) 


End Sub 


É e e 


Sub MnulIncluir Click () 


DO RSS TT e o 


“Atualiza título da janela 
FrmCadFunc.Caption = “CADASTRO DE 
FUNCIONARIOS” 


ExlstMat = 0 

Incluir = -1 
MnuProcurar Click() 

MnuProcurar Click 


'Flag para 


If ExistMat = -1 Then 

Beep 

MsgBox “Funcionário já cadastrado” 

Incluir = 0 

Exit Sub 
ElseIf ExistMat = 1 Then 

matricula foi entrada 

Exit Sub 

End If 


* Nenhuma 


* Torna os controles visíveis 
Flag = 1 
ShowControles (Flag) 


'* Salva o registro corrente. 
SaveCurrentRecord 


* Adiciona um registro em branco. 
LastRecord = LastRecord + 1 
RegFunc.Nome = “ “ 

RegFunc.Matric = NewMat 
RegFunc.Setor = “ “ 

RegFunc. Informe = “ “ 

Put fFileNum, LastRecord, RegFunc 


* Torna registro corrente o último. 
CurrentRecord = LastRecord 


* Mostra o registro que acabou de ser criado 
com 

* os dados para serem preenchidos. / Carrega 
foto 

ShowCurrentRecord 

ShowCurrentPicture (RegFunc.Matric) 


NewRec = LastRecord 
MnuBxibir Click() 


' Flag para 


* Focaliza o campo TxtNome 
TxtNome. SetFocus 


End Sub 


le ————— ————— ———— me É e— 
Sub MnuProcurar Click O 


“Atualiza título da janela / Torna controles 
invisíveis 

FrmCadFunc.Caption = “CADASTRO DE 
FUNCIONARIOS” 

Flag = 0 

ShowControles (Flag) 


* Declara variáveis auxiliares para procurar. 
Dim Matrix As String 

Dim Found As Integer 

Dim RecNum As Long 

Dim TmpRegFunc As Registro 


* Recebe do usuário a matrícula a ser 
procurada. 

Matrix = InputBox$ (“Entre com a matrícula:”, 
“Pesquisa”) 


* Se não tiver entrado nenhuma matrícula, sai 
da procedure. 
If Matrix = “” Then 
ExistMat = 1 
Exit sub 
End If 


* Procura pela matrícula desejada. 
Found = False 
For RecNum = 1 To LastRecord 





Get fFileNum, RecNum, TmpRegFunc 
If Matrix = 
UCase (Trim(TmpRegFunc.Matric)) Then 
Found = True * Encontrou a 
matrícula 
Exit For 
End If 
Next 


* Caso o registro correto tenha sido 
encontrado, então 
'* Salve o registro/Exiba-o/Carregue foto/ 


| Focalize TxtNome . 


If Found = True Then 
ExistMat = -1 
Flag = 1 
ShowControles (Flag) 
visíveis 
SaveCurrentRecord 
CurrentRecord = RecNum 
ShowCurrentRecord 
ShowCurrentPicture (RegFunc.Matric) 
TxtNome.SetFocus 
Else 
ExistMat = 0 
If Incluir = 
Beep 
MegBox “Funcionário com matrícula “4 


* Torna controles 


O Then 


| Matrix + “ não cadastrado !” 


Exit Sub 
Else * Procura incluir novo registro 
NewMat = Trim(Matrix) 
End If 
End If 


“End Sub 


(—— ———eeeeeee er 8 mm 
Sub MnuSalr Click () 


* Encerra o programa 
End 


End Sub 


4 


Sub SaveCurrentRecord O 


* Preenche RegFunc com os dados corretamente 
exibidos. 

RegFunc.Nome = TxtNome. Text 

RegFunc.Matric = Txtmatricula.Text 

RegFunc.Setor = TxtSetor.Text 

RegFunc. Informe = TxtInforme. Text 


* Salva RegRunc no registro corrente. 
Put fFileNum, CurrentRecord, RegFunc 


End Sub 


f 


Sub ShowControles (Flag) 


If Flag = 0 Then 
invisíveis 
LblNome.Visible = False 
TxtNome.Visible = False 
LblMatricula.Visiíble = False 
Txtmatricula.Visible = False 
LblSetor.Visible = False 
TxtSetor.Visible = False 
PicFunc.Visible = False 
TxtInforme.Visible = False 
CndProximo.Visible = False 
CmdAnterior.Visible = False 
CmdRetorno.Visible = False 
ElseIf Flag = 1 Then '* Torna os controle 
visíveis 
LblNome.Visible True 
TxtNome.Visible = True 
LblMatricula.Visible = True 
Txtmatricula.Visible = True 


* Torna os controles 
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Colorful demo from 
Knowledge Adventure 


3-D DINOSAUR ADVENTURE 
Agora em disquetes uma das maiores 
sensações dos CD-ROM. 


Uma completa enciclopedia com fotos, 
sons e animações sobre dinossauros! 
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als ta to pra a tata ta eta ça ça PEER T 
Ca late o ataista te tala le ças PES SCENE SS DA DA 


LANDS OF LORE 
Uma grande chance para você entrar no 
mundo dos "role-playing games"! 1H 


» 
n..naea asa uva sum aum + 


RAPTOR 2H aa 
O melhor jogo espacial já criado para O PCIR 
FIRE & ICE 1H a 
No estilo do "Sonic”, lindo e fantástico! 
XARGON 1H 
Excelente aventura tipo "Prince of Persia”. 
MUTANT BATS OF DOOM 1H 
Um game para os saudosos do “"Galaga"! 
ZOOL 1H 
Fantástico jogo no estilo do "Sonic"! 
DUKE NUKEM Il 1H 
Sensacional sequência ao "Duke Nukem |! 


E ÚLTIMAS NOVIDADES E 


PAGE PLUS for WINDOWS 
Um dos nossos maiores "best-sellers"! 
Simplesmente o melhor sistema de 
desktop publishing em shareware! 1 [É 


e... 0. mu su nu 
ane. a ul. 
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OSCAR 
Similar ao "Sonic" dos video-games, 
Oscar é um excelente jogo de ação! 


1H 


tis. dt sd 


SANGO FIGHTER 
Mais violento que "Mortal Kombat 
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BODY BLOWS 
Muito melhor que "Street Fighter 2" 
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EMPIRE SOCCER COPA 94 E 
MIR a i(o To 6S]= Ro] io RS O melhor jogo de futebol para o FO td Es ASSEMBLY 93/94 DEMOS 


WINDOWS VIDEOBASE 1h : UNREAL DEMO (CONTEST WIN) 1. 
Banco de dados com imagens e sons i do | “a: Fantástica demo com ótimos sons e animações 
Fantástica demonstração de efeitos am : Rs E . Ef E Os novos delírios dos produtores da UHREAL' 
MULTIMEDIA CREATIONS 2H im MR RE Ee cias CRYSTAL DREAM (VOL. 1) 1d 
Veja de que a multimidia é capaz! MESA Eça Uma das mais empolgantes demos européias: 
MULTIMEDIA MADNESS 14d Sesi CRYSTAL DREAM (VOL. 2) 2hd 
Mais sensacionais efeitos multimidia! ae Sensacional sequência a “Crystal Dream 1º 
CARTOONS MAKER 6H ft: oO 3 TT 9] ELECTROFORCE DEMO 1. 


Crie suas próprias animações gráficas! Mais efeitos visuais e sonoros nesta super demo 


MULTIMEDIA 4 WINDOWS 2H PUBLIC NMI JUMP DEMO tu 
Coloque mutimidia no seu Windows! Etetrizante demo dos programadores da Europa: 


MULTIMEDIA BATCHS 1 EH UNTITLED VGA DEMO tal 
Imagens e sons nos arquivos "BAT" dk À mais nova demo com os mais variados eteitos: 
MULTIMEDIA K-SCOPE 1h 
Super “demo” com imagens e sons. 
ACTION PLAY WINDOWS 1H 
Programa gerenciador de Multimidia 
AUTHORWARE LITE WIN 2h 
A versão "sharevvare” deste programa. 
LINK WAY LITE | 
Concatenador de arquivos multimidia 
STORYBOARD LIVE 2.0 Sid 
A versão 'sharev/are” deste programa. 
DIVIDEO IBM DEMO 2h 
Às novidades em multimidia da IBM! 
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CORRIDOR 7 
Bia ponsderna! sequência ao "DOOM". 1 


E REGA CIRO GEMA A a 1 A A TIA 7 


ANIMATION CER UM ai =| PAINT-SHOP PRO for WINDOWS 1H Ei 
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TxtSetor 





- Informe) 


«Setor) 
com o registro 
+ 


Trim(RegFunc 


Trim (RegFunc 


Text 


CADASTRO DE FUNCIONARIOS” 


Text 


TxtInforme 


' Atualiza título da janela 


corrente 
Titlei 


Spaces (9) 


True 

= True 
= True 
= True 
= True 


«Visible 


Visible 
Visible 


Visible = True 
Visible 
«Visible 
«Visible = True 


CmdAnterior 
CmdRetorno 


LblSetor 
TxtSetor 
PicFunc 
TxtInforme 
CmdProximo 


Me 


= “a 


Title2 
Str$ (CurrentRecorã) + “/” 


Reg: 


Str$ (LastRecord) 


Titles 


Titlel + Title2 + Title3 


Caption 


FrmCadFunc 


String) 


As 


(MatFunc 


$ 


o arquivo de foto do registro 


Carrega 


*CADFUNC. BAS 


ções globais para 


“Módulo que contém declara 


variáveis que 


CADASTRO)” + Trim(MatFunc) + 


“C 


ArgFoto 


'Todas as varáveis devem ser declaradas. 


'devem ser visíveis em todo o projeto. 
Option Explicit 


- BMP” Then 
re(”“”) 


LoadPictu 


YCADASTRON 


Picture 
Picture 


On Error GoTo Sem Foto 


PicFunc 
PicFunc 


If ArgFoto <> “C 
Else 


tipo definido que 


“Declara uma variável 


corresponde a um 


LoadPicture (ArgFoto) 


DAT 


' Esconde 


False 


PicFunc.Visible = 


String*40 


“registro no arquivo CADFUNC 
N 


Type Reglestro 


End If 


String*9 


String*8 
String*100 


As 
As 
As 

As 


fo 
Informe 


Matric 
Setor 


Visible = False 


' O arquivo de foto não existe 


PicFunc 


Exit Sub 
Resume Next 


ODIN CINIORETANS 
Módulo que contém declarações globais para 


variáves que 


4 
4 


devem ser visíveis em todo o projeto 


Declara uma variável tipo definido que 


corresponde a um 


'Todas as varláveis precisam ser declaradas. 
Option Explicit 


t 
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registro no arquivo CADFUNC.DAT 


Type Registro 


$ 


w 
= 
epi 
a 
s 
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q 
á 
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As String * 40 
As String * 8 


No 
Matric 


' Preenche RegFunc com os dados do registro 


Get fFileNum, CurrentRecord, RegFunc 


As String * 9 


Setor 


Informe As String * 100 


End Type 


Matric) 


Text = Trim(RegFunc. 


' Exibe o registro do funcionário. 
TxtNome.Text = Trim(RegFunc.Nome) 


Txtmatricula 


sa 


saga 





Eae 


FOSTER 


x 
RO Ra 
SER 


TERA 
Ea 
picas 


4 


Es 


DE 


REDE, 


1x 


- BMHP” 


Ea 


corrente. 


E) 


Sub ShowCurrentRecord () 


controle Picture 


End Sub 


É 
g 


f 
corrente 
Sem Foto: 
End Sub 


Ea 


| Sub ShowCurrentPicture 


Edo 








NÃO PERCA 


ESTA PROMOÇÃO: 
40% de desconto 


Na compra do GRAPHOS Ill e mais um jogo você ganha 40% de 
desconto no valor total do pedido e recebe ainda, inteiramente grátis, o 
PRO KIT topview para fazer as incríveis animações da seção Bitmap. 











Forme um grupo de jogadores, pois a 
PRO KIT está lançando sua mais 
fantástica aventura no reino dos jogos in- 
teligentes: um autêntico RPG para com- 
putadores. | 

O mestre cria os cenários onde 
acontecerão as missões e os jogadores 
são colocados frente às mais diversas 
situações. Ao terminar uma partida, O 
mestre avalia o desempenho do jogador 
e, se for o caso, concede-lhe um talismã 
de força e conhecimento, que poderá ser 
usado nas próximas missões. 

Os jogadores podem até mesmo juntar 
suas forças para vencer uma missão mais 
complexa ou para combater um guardião 
mais poderoso. 

As missões podem ser simples ou pos- 
suir diversos níveis de dificuldade, com 
inúmeros perigos, armadilhas, guardiães 
e a temível aparição WAHAMEC - um ser 
etéreo que busca materializar-se em 
nosso universo. 






hventura, e mistério no 






WIZ 


À criação das missões é extremamente 
simples e totalmente comandada por 
ícones. O mestre pode visualizar cada 
uma das salas do subterrâneo e 
selecionar até mesmo o tipo de parede 
que as formam. 

Ão preparar um cenário, o mestre dá a 
cada jogador um disco contendo todo o 
sistema responsável pelo jogo. Ão ter- 
minar a missão, o jogador devolve o disco 
para a sua avaliação e então recebe uma 
palavra mágica, que contém todo O seu 
conhecimento e força. 





Requisitos: 
PC 286/386 - VGA 256Kb - A: 1.2Mb - mouse 


RAS AS mr 


Renato Degãdovani 


versão 5.0 


Totalmente escrito em Assembler, o 
GRAPHOS ill é o mais rápido editor para 
o PC e um dos poucos que não exige 
megas e megas de memória para ser ex- 
ecutado. Tudo nele é simples e fácil de 
usar. 

Além dos recursos tradicionais de edição gráfica, tais como linhas, retângulos, raios, 
círculos, fill, spray, inversão, rotação, espelhamento, etc, o GRAPHOS III possui ainda 
ferramentas especiais para corte e duplicação de pedaços da tela, zoom para 
correções delicadas nos desenhos, troca de atributos e uma nova ferramenta para uso 
com 2s padrões gráficos pré-definidos. 

A grande novidade desta versão é o arquivo Clipboard, que pode manipular até 180 
telas. Essas telas podem ser posteriormente compactadas num único arquivo e integrar 
um sistema de slide show simples e fácil de programar. É possível controlar o tipo de 
efeito especial que será usado para mostrar a tela, o tempo que ela permanecerá 
mostrada e até mesmo associar uma tecla a cada tela. O sistema pode criar um 
programa executável, para O slide show, que independe do GRAPHOS IIl para fun- 
cionar. 

O editor de alfabetos permite que o usuário crie e edite alfabetos proporcionais, com 
2 pixels de altura até 16 pixels. Novos recursos de clipping e captura gráfica aumentam 
consideravelmente o poder dos editores de padrões e de alfabetos. 

- A edição da palete está mais simples ainda. Com poucos comandos do mouse é 
possível alterar as intensidades de RGB de cada cor. Além disso, é possível controlar a 
intensidade (claro/escuro) das cores e calcular o tom de cinza correspondente da cor. 

O programa GRAPHOS IIl ainda permite que se grave ou recupere arquivos no for- 
mato TIFF, não compactado, com definição de cores. 


Requisitos: 
PC 286/386 - VGA 256Kb - A: 1.2Mb - MS mouse 


L] Graphos Ill (versão 5.0) 





AMAZONIA 


O mais tradicional Adventure escrito em português. Dez anos de sucesso. 


[1] Amazônia (CGA / VGA)... teses temer 


E 
Seus nervos serão testados ao extremo neste sen- 
o sacional adventure gráfico. Sangue frio e inteligência 


são os requisitos básicos para salvar o Brasil de um 
grave acidente nuclear. 

Requisitos: 

PC 286/386 - VGA 256Kb - À: 1.2Mb 












A AVENTURA ESTÁ 
APENAS COMEÇANDO 


Prepare-se para uma incrível aventura no espaço, 
em busca de um pequeno planeta azul. O Nautilus é um jogo de estratégia, que irá 
colocar em teste sua habilidade no comando de uma espaçonave. 


Características da nave: 
Controles por mouse 
Tela de informações 
Diário de bordo 
Sistemas de análise Requisitos: 
Torpedos fotônicos e phasers PC 286/386 - VGA 256Kb - A: 1.2Mb - MS mouse 
Velocidade WARP 
Botão de autodestruição [] Nautilus 


R$ 25,00 





[] Angra! 


Bitmea 


À mais nova sensação da revista Micro 
Sistemas agora em disquete, especial- 
mente para VGA. Todos os shapes da 
galeria de arte, os roteiros de animação, 
os Ícones, programas shareware, etc, 
numa estrutura gráfica interativa (como 
num livro digital). 

Dicas e truques para obter mais cores 


p 


Envie cheque nominal para PRO KIT Informática e Editora Ltda 
Caixa Postal 108.046 - Niterói/RJ - CEP 24121-970 


no monitor, macetes de criação usando o 
GRAPHOS III, e muito mais. 


Disponível no BBS Século 21 - RIO 
(021) 521-6947 - Download livre 


PC 286/3286 - VGA 256Kb - À: 1.2Mb - mouse 
[] Bitmap 81 
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PROGRAMA 


Z00M para as figuras da seção BITMAP 





Zoom Para BitMap 


Gustavo Torquato da Silva 


Já faz algum tempo que em MS vem sendo publicada uma 
seção chamada BitMap, e nesta seção são encontrados 
alguns desenhos em modo “ZOOM” que eu, particularmente, 
achei muito interessante. Foi então que houve o interesse 
em utilizar estes desenhos em meus programas e, para fazer 
isso, criei um editor em modo “ZOOM” para facilitar a 
construção dos mesmos. Este editor é o Galery. 

O Galery utiliza o mouse, pois assime mais fáciltrabalhar. 
Usatambém as 16 cores do modo VGA do Turbo Pascal, para 
uma melhor apresentação. E utilizando os desenhos feitos 
neste editor, já incrementei muitos de meus programas. 

Depois de gravados em disco as duas listagens, digitar 
a partir do prompt do DOS: 

TPC /B GALERY 


GALERY.PAS | | 


uses crt,graph,dos,mouse; 
const 
FUNDO = 
var 
L,V, COR, 
X,Y 


GUSTAVO TORQUATO DA SILVA tem 16 anos e é estudante 
do terceiro ano do curso técnico em processamento de 
dados. Programa em Pascal e Clipper. 


8; 
: integer; 


procedure Mudacor (pNC:word); 

begin 
setcolor (COR); 
setfillstyle (1,COR); 
L£ area (30,290,90,320) then hidemou; 
bar (30,290,90,320); 
showmou ; 

end; 


procedure Button 


(pC, PL, PCF, pLF, pH: integer;pM:string); 
begin 


1f FUNDO<>0 then setcolor (0) else 
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Micro: IBM PC XT/AT 
Memória: 512 Kbytes 
Vídeo: VGA 
Linguagem: Pascal 
Requisitos: Nenhum 








setcolor (8); 
rectangle (pC,pL,pCF,pLF); 
rectangle (pC+pH, pL+pH, pCF-pH, pLF-pH); 
line (pC,pLF,pC+pH, pLF-DpH); 
line (pCF-pH, PL+pH, pCF,pL); 
setfillstyle (1,0); 
floodfill (pC+pH,pLF-1,getcolor); 
setfillstyle (1,7); 
floodfill (pC+1,pL+1,getcolor); 
setfillstyle (1,8); 
bar (pC+pH, pL+pH, pCF-pH, PLF-DpH) ; 
settextjustify 
(centertext,centertext); 
settextstyle (0,0,0); 
setcolor (15); 
outtextxy (1+pC+(pCF-pC) div 
2, 1+pL+(PLF-pL) div 2,pM); 
setcolor (0); 
outtextxy (pC+(pCF-pC) div 2,pL+(pLF- 
PL) div 2,pM); 
end; 





















functuálon XRead : 
var 
8,W : string; 
T : char; 
begin 
Bia “!; 
T := upcase(readkey); 
while T<>13 do begin 
1f (Tin['A'..'Z']) or (T 
in['1'..'2']) then begin 
outtext (T); 
Wi= TT; 
8 := S+W; 
end; 
if T=k8 then begin 
moveto (getx-textwidth('W'),gety); 
bar (getx, gety, getx+10, gety+10); 
8 := copy (S,1, length(5)-1); 
end; 
T := upcase(readkey); 
end; 
XRead := 8; 
end; 


string; 



















function Barra : string; 
var 

S : string; 
begin 
















else setfillstyle (1,1); 





1£ FUNDO<>4 then setfillstyle (1,4) 


bar (5,10, getmaxx-5,20); 
setcolor- (15); 
getdir(0,8); 
settextjustlfy (bottomtext,righttext); 
outtextxy (5,10,8+'.:'); 
moveto (5S+textwldth(S+'.:'),10); 
S := XRead; 
setcolor (COR); 
Barra := S; 
end; 


procedure Retorno; 


begin 
setfillstyle (1,FUNDO); 
bar (5,10,getmaxx-5,20); 
end; 


procedure Abre; 


var 
NA : string; 
ARQ : text; 
CH : char; 
N,G, 
H : integer; 
begin 
hidemou; 


NA := Barra; 
assign (ARQ,NA+'.GLR'); 
reset (ARQ); 
readin (ARQ); 
readin (ARQ); 
readin (ARQ); 
moveto (121,31); 
while not eof(ARQ) do begin 
while not eoln(ARQ) do begin 
read (ARQ, CH); 
N := ord(CH)-32; 
G := getx div 10 - 11; 
:= gety div 10 - 02; 
putpixel (35+G,355+H,N); 
setfillstyle (1,N); 
floodfill (getx,gety, 15); 
moveto (getx+10,gety); 
end; 
readlin (ARQ); 
moveto (121, gety+10); 
end; 
close (ARQ); 
Retorno; 
ghowmou ; 
end; 


i procedure Salva; 
























var 
NA : string; 
ARQ : text; 
CH : char; 
N : integer; 
begin 
hidemou; 


NA := Barra; 

assign (ARQ,NA+'.GLR'); 

rewrite (ARQ); 

writeln (ARQ,'All Rights for'); 
writeln (ARQ,' Gustavo Torquato 


da Silva'); 


writeln (ARQ,''); 
L:=31; 
while L<=411 do begin 
V:=121; 
while V<=601 do begin 
N := getpixel (V,L); 
CH := chr(N+32); 
write (ARQ,CH); 








inc (V,10); 

end; 
writeln (ARQ,''); 
inc (L,10); 

end; 

close (ARQ); 

Retorno; 

showmou ; 

end; 


procedure Limpa; 
var 
N : integer; 
begin 
hidemou; 
setfillstyle (1,0); 
bar (30,350,90,420); 
L:=31; 
while L<=411 do begin 
V:=l2l; 
while V<=601 do begin 
N := getpixel (V,L); 
1£f N<>0 then floodfill(V,L,15); 
inc (V,10); 
end; 
inc (L,10); 
end; 
ghowmou; 
end; 


procedure Inicializa; 


const 
GDRIVER : integer = 9; 
GMODE : integer = 2; 
GPATH : string = *"; 
begin 
COR := 1; 


initgraph (GDRIVER, GMODE, GPATH) ; 
setfilistyle (1, FUNDO); 
bar (0,0, getmaxx, getmaxy); 
V:=30; 
for L:=0 to 15 do begin 
gsetfillstyle (1,L); 
if (L mod 2)=0 then ' 
bar (30,V,60,V+30) 
else begin 
bar (60,V,90,V+30); 
inc (V,30); 
end; 
end; 
1£f FUNDO=0 then setcolor (15) else 
SETCOLOR (0); 
rectangle (29,29,91, V+1); 
rectangle (29,V+19,91,V+51); 
gsetfillstyle (1,COR); 
bar (30,V+20,90,V+50); 
setfillstyle (1,0); 
bar (120,30,610,420); 
bar (30,350,90,420); 
Button (120,430,220,470,4, ' SALVAR"); 
Button (225,430,325,470,4,'ABRIR'); 
Button (330,430,430,470,4, 'SAIR'); 
Button (435,430,535,470,4, ' LIMPAR'); 
-Betcolor (15); 
L:=30; 
while L<=420 do begin 
V:=120; 
while V<=610 do begin 
line (V,30,V,420); 
inc (V,10); 
end; 
line (120,L,610,L); 
inc (L,10); 
end; . 
setfillstyle (12,COR); 
end; 
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urge 





function MOUSEON : boolean; 


procedure Verifica; begin 
begin MOUSEON := false; 
if not mouseon then begin | R.ax := 0; 
writeln (“Este programa requer intr ($33,R); 
MOUSE...'); | | lf R.ax<>0 then begin 
halt (0); | MOUSEON := true; 
end; exit; 
end; end; 
end; 
begin 
Verifica; procedure SHOWMOU; 
Inicializa; begin 
showmou ; R.ax := 1; 
repeat intr ($33,R); 
if ebutton then begin end; 
lf area(30,30,90,250) then begin 
hidemou; procedure HIDEMOU; 
COR := getpixel (moux,mouy); “ begin 
gshowmou; R.ax :s= 2; 
Mudacor (COR); iIntr ($33,R); 
end; end; 
1f area(120,30,608,420) then begin function MOUX : integer; 
hidemou; begin 
floodfill (moux,mouy, 15); R.ax := 3; 
X := moux div 10 - 11; intr ($33,R); 
Y := mouy div 10 - 02; | MOUX := R.cx; 
putpixel (35+X,355+Y,COR); end; 
showmou ; function MOUY : integer; 
end; begin 
lf area(124,434,216,466) then Salva; R.ax := 3; 
lf area(229,434,321,466) then Abre; | intr ($33,R); 
1f area(439,434,531,466) then Limpa; | | MOUY := R.dx; 
end; | end; 
until area(334,434,426,466) and ebutton; | function Area(X1,Y1,X2,Y2:integer) 
closegraph; | boolean; 
end. begin 


if (MouX<X1) or (MouX>X2) or 
(MouY<Y1) or (MouY>Y2) then begin 





NV LITE DA Area := false; 
unit MOUSE; else 
Area := true; 
| interface | end; 
uses function BUTTON(N: integer) : boolean; 
dos; | begin 
R.ax := 3; 
function MOUSEON : boolean; intr ($33,R); 
procedure SHOWMOU; if (R.bx and N) = N then 
procedure HIDEMOU; BUTTON := true 
function MOUX : integer; else 
function MOUY : integer; > BUTTON := false; 
function AREA | end; 
(X1,Y1,X2,Y2:integer):boolean; | function EBUTTON : boolean; 
function BUTTON(N: integer) : boolean; | begin 
function EBUTTON : boolean; di := BUTTON(1); 
| end; 


implementation 
var enáã. 


R : registers; 








BANK SOFT 


Informática Ltda. 


Shareware, Jogos e Aplicativos para Micros PC/XT/AT 
Peça já seu catálogo gratuíto pelo telefone : (011) 293-7957 
x ou pela Caixa Postal : 14.181 - Cep : 02799-970. 

Não Perca Tempo !! Temos o Melhor Atendimento e Controle de Qualidade - Comprove 
APROVEITE NOSSA PROMOÇÃO REAL 
Discos: 360Kb=R$1,0 - 1.2Mb=R$1,5 -  14Mb=R$20: 
E ainda na compra de cada 15 discos, grátis 1 disco 1.2 Mb Gravado. 





















A PRO KIT acaba de lançar a segunda versão do curso que está 
fazendo o maior sucesso: Assembler para PC, sem sair de casa. 


O curso de programação foi planejado em 10 partes, prevendo uma 
duração de aproximadamente um ano. Neste periodo o aluno per- 
manece em contato (por carta) com a equipe técnica da PRO KIT, com 
o propósito de elucidar as dúvidas. 


Cada parte é remetida ao aluno que, após o estudo, deverá devolver à 
PRO KIT um pequeno teste. Este teste serve para identificar as 
possíveis áreas ainda sem entendimento e servem ainda para 
preparar 0 aluno para os assuntos que serão tratados mais à frente. 
As lições só serão remetidas após o recebimento do teste (respon- 
dido, ou não). 


Para fazer 0 curso é preciso ter o conhecimento mínimo indispensável 
na programação em qualquer outra linguagem: bases numéricas, 
memória, RAM, ROM, bit, byte, compilação, edição de textos, etc. O 
curso possui uma linha básica, cuja compreensão não exige muita 
experiência anterior. Dependendo do grau de dificuldade de cada 
aluno, a PRO KIT produz um APÊNDICE específico, zom elucidações 
complementares. 


As dúvidas mais simples são respondidas juntamente com u envio das 
partes subsequentes. Todo o material necessário para a criação de 


O que era bom ficou 
ainda melhor! 


programas em Assembler é fornecido pela PRO KIT, inclusive a 
biblioteca de rotinas especiais, usada nos programas produzidos pela 
nossa equipe técnica. 


TÓPICOS: 


Às principais instruções 

O teclado e suas funções 

O vídeo em modo de alta resolução 
Menus pulldown e comandos por tabelas 
Entrada de dados e rotinas de input 
Manipulação de arquivos 

Uso e controle do mouse 

À impressão 

Acesso irrestrito aos disquetes e HD 
Rotinas genéricas 


O objetivo deste curso, único no mercado brasileiro, não é apenas en- 
sinar o Jso das instruções, mas principalmente a mecânica, os tru- 
ques e macetes de se criar programas em Assembler. O curso é 
compatível com micros padrão IBM PC XT / 286 / 386 / 486. 


A PRO KIT coloca ainda à disposição dos programadores, que já pos- 


suem conhecimentos de Assembler, três discos contendo suas prin- 
cipais bibliotecas de rotinas. 


PRUORTIT 








Autor e orientador: RENATO DEGIOVANI Iniciativa: 

[] Assembler em 10 lições (CGA)........ R$60,00 Nome: 

[] Assambler em 10 lições (VGA)......... R$100,00 Endereço: 

[ ] Biblioteca de rotinas para CGA........ R$30,00 CEP: Cidado;- === = 10. >> ———>='UE 
[5 Biblioteca de rotinas para VGA......... R$30,00 Data: Valor: Cheque: Banco: 
[] Biblioteca Super VGA 256 cores....... R$30,00 Equipamento: 





Envie cheque nominal para PRO KIT Informática e Editora Ltda 
Caixa Postal 108.046 - Niterói / RJ - CEP 24121-970 
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do 





Não perca de vista seus arquivos 


ROTINAS 








Micro: IBM XT/AT 
Memória: 512 Kbytes 
Video: CGA/VGA 
Linguagem: C 


Biblioteca - parte 1 Bt mei 





à HENRIQUE MORAES MACHADO programa em Pascal, C, 
| Cobol e Clipper e desenvolveu diversos sistemas para 
aplicação comercial. 


Henrique Moraes Machado 
a eee] 





Embora a linguagem C possua as funções findfirst e 
findnext para procurar arquivos, estas funções são limitadas. 
As vezes, você deseja executar uma determinada ação a um 
conjunto de arquivos em um diretório dado, possivelmente 
incluindo arquivos em subdiretórios. As funções Searcher e HeM 1994 
AllSearcher tomam mais fácil essa tarefa. FINDAND.C 
A função Searcher recebe como parâmetros uma máscara Procura arquivos e aplica um comando 
(como *.txt por exemplo ou c:idosY*.com), um filtro de definido pelo usuario a cada um 
atributos e um nome de função. O protótipo da função todas as mensagens estao em ingles 
passada como parâmetro deve ser: por que eu gosto mais assin. 
int SearchProc( struct ffblk *, char * ) | há 


- ” ; | Eincl tdio.h 
Esta função executa a ação desejada em cada arquivo papa putda Ed á 


encontrado. finclude <dir.h> 

Afunção AllSearcher funciona da mesmamaneira, entretanto finclude <stdlib.h> 

ela procura arquivos também em subdiretórios, porexemplo: | finclude <string.h> 

Searcher( “*.com”, FA ARCHIVE, MyFunc ); Doce Tudo certacRho 

: a finclude <process.h> 

Procura todos os arquivos com extensão COM apenas no | 

diretório atual e executa a função MyFunc para cada arquivo /* Funcoes de busca de arquivos 

encontrado. Searcher e AllSearcher */ 
finclude “FSRCH.C” 

AliSearcher( “*.com, FA ARCHIVE, MyFunc ); 

Procura todos os arquivos com extensão COM no diretório 

atual e subdiretórios e executa a função MyFunc para cada 

arquivo encontrado. 


unsigned long FilesFound = 0; 


char FileMask[ MAXDRIVE + MAXPATH - 1 

A função MyFunc poderia ser algo simples como: 1; 
int MyFunc( struct ffblk *B, char *C ) ( char Command[ 256 J; 
printf( “encontrado arquivo: %s no diretório %s”, B->f name, 


C); char *strdel( char *Sstr, char *Pos, 
retum( O ); size t Num ) ( 
size t Len = strlen( str ); 


1f( ( Pos >= &Str[ Len ] ) || ( Num 
ou algo muito mais complexo. ==0))4 


O programa exemplo FINDAND.C utiliza a função return( Str ); 
AllSearcher para procurar arquivos e aplicar um comando 
definido pelo usuário. 
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Num = ( Num <= gstrlen( Pos ) ? Num : 
strlen( Pos ) ); 
1£( Num ) ( 
memmove ( Pos, &Pos[ Num ], strlen( 
&Pos [ Num ] ) + 1); 
) 


return( Str ); 
) 


char *gstrins( char *Str, char *Pos, 
char *Insrt ) ( 
size t Len = strlen( Insrt ); 
char *Tmp = &Pos[ Len J; 


memmove ( Tmp, Pos, strlen( Pos ) + 1 
)s 
memmove ( Pos, Insrt, Len ); 


return( Str ); 


) 


char *gstrsubst ( char *Str, char *Find, 
char *Rplc ) « 

char *StrWork = Str; 

size t LenkRplc = strlen( Rplc ); 


while( ( StrWork = strstr( StrWork, 
Find ) ) i= NULL ) ( 
strdel( Str, StrWork, strlen( Find 
) Ds 


strins( Str, StrWork, Rplc ); 
StrWork += LenkRplc; 
) 


return( Str ); 


) 


/* 
Esta e a funcao passada para 

AlSearcher 

*/ 

int SrcProc( struct ffblk *FB, char 
*Path ) ( 

char Coml[ MAXPATH ]; 

char Com2[ 256 ]; 

char TheFile[ MAXPATE J; 

char D[ MAXDRIVE J]; 

char P[ MAXDIR J; 

char F[ MAXFILE J; 

char E[ MAXEXT ]; 

char PE[ MAXFPILE + MAXEXT - 1 J;. 

char DP[ MAXPATH J; 


int Flags; 

/* Oops! it's a volume label */ 

1f( FB->ff attrib & FA LABEL ) 
return( 0 ); 

FilesFound ++; 


strupr( Path ); 


strcpy( Therile, Path )3 


strcat( TheFile, FB->ff name );. 
strcpy( Coml, Command ); 
fnsplit ( TheFile, D, P, F, E ); 


strcpy( FE, 
strcat ( FE, 


ve ue 


) 
) 
strcpy( DP, 
strcat ( DP, 


My tmMMm 


) 
) 


va ue 


strcpy( Com2, strsubst ( Comi, “S1”, 
TheFile ) ); 


* drive:idiretoriolarquivo.extensao */ 
strsubst ( Com2, “$2”, FE ); 
/* arquivo.extensao 
a 4 
strsubst ( Com2, “$3”, FP ); 
/* arquivo 
w/ 
strsubst ( Com2, “S4”, D ); 
/* drive: 
2; 
strsubst ( Com2, “55”, DP ); 
/* drive:idiretorio 
ad 4 
strsubst ( Com2, “S$6”, P ); 
/* diretorio 
a É 
strsubst ( Com2, “87”, E ); 
/* extensao 
ba À 


l£( FB->ff£f attrib & FA DIREC ) 
printf( “<DIRECTORY> “” ); 


printf( “ %s”, TheFile ); 


l£( strlen( Command ) > 0) 1 
printf( ” -> %sin”, Com2 ); 
1f( system( Com2 ) ) 
printf( “” |! can't execute com- 
mand %sin”, Com2 ); 
) 
else 
putchar ( “in” ); 


return( O ); 


) 


int main( int argc, char *argvl] ) « 
'- char D[ MAXDRIVE JJ; 

char P[ MAXDIR 1]; 

char F[ MAXFILE J]; 

char E[ MAXEXT ); 

int fflags = 0; 


print£f( “FindAnd ... to search for 
files and apply a commandla” ); 

printf( “Copyright (c) 1994, HeM 
Softmaker. All rights reserved.in” ); 


F 


l£( argc < 2 Il argvl 1 1[01] =="'/ 
( 


printf( “insyntax: FINDAND 


e A O AT a re Ce A LF SATO ad 





tm s 


%CCOMMAND $n%c FileMaskin”, 
)3 

printf( “ 
FileMaskinin” ); 

printf( ” FileMask = files you 
wish to search (wildcards allowed) in” 
); 

printf( “ COMMAND 
apply to each filein” ); 

printf( ” sn 


“885 
s 


or: FINDAND 


= command to 


= replaced 


with name of file by the programin” ); 
printf( “ 

+ Aipathil + name + 
printf( “ 

«extensionin” ); 
printf( “ 


$1 drive: 
«extensionin” ); 
S$2 name + 


S3 namein” 


printf( “ S4 
drive:in” ); 
printf( “ 
A pathiia” ); 
printf( “ S6 
A pathiia” ); 
printf( “ $7 
«extensioninian” ); 
printf( “ example: FINDAND %ccopy 
$1 a:$3.bakxc *.docin”, '“!, “us 3; 
printf( ” . copies files 
matching *.doc to drive A: changing 
extensions to .BAkKinin” ); 
return( 1 ); 
) 
else ( 
L£( argc == 3) ( 
gtrcpy( Command, argvl 1 ]); 
strepy( FileMask, argvl 2 1] ); 


S5 drive + 


) 

else 1f( argc =z 2 ) « 
strcpy( FileMask, argv[ 1] ); 
strcpy( Command, NULL ); 

) 


O RIO GANHOU UMA NOVA E DIFERENTE LOJA| 
NUM MESMO LOCAL VOCÊ ENCONTRA 


EDIG oEs EDIOURO: LIVROS DOS MAIS VARIADOS ASSUNTOS 
LETRÔNICA: LIVROS, ANTENAS PARA RADIOAMADORES E PX, 
ANTENAS PARABÓLICAS, ETC. 











INFORMÁTICA: SUPRIMENTOS, EQUIPAMENTOS, COMPLETA 
LINHA DE LIVROS PARA INICIANTES E PROFISSIONAIS COM 20% DE 
DESCONTO. 






MANUAIS EM PORTUGUÊS: VIDEO, CÂMERAS, AGENDAS, 
COMPUTADORES, FAX, TELEFONE SEM FIO E ETC. TEMOS 
DIVERSOS PRONTOS E . TRADUZIMOS ARTIGOS DE REVISTAS E 
LIVROS. 







VENHA CONHECER A 


Av. Marechal Floriano,167 A - CEP:20080-005 
Rio de Janeiro - RJ 
TEL:(021)263-9590 FAX:(021)263-8840 












) 


fflags = fnsplit( FileMask, D, P, 


FP, E ); 


l1f( ( fflags & DRIVE ) == 0) « 


strcpy( D, 
D[ 0 ) = 'A' 
) 


1f( ( fflags 
strcpy( P, 
getcurdir( 
)3 


) 
1£( ( fflags 
strcpy( PF, 


) 
Lf( ( fflags 
strcpy( E, 


fnmerge( FileMask, D, P, F, 


“K:” Dj 
+ getdisk(); 


& DIRECTORY ) == 0) « 
“IN )s 
D[ O ] - 


“A! + 1, P+ 


& FILENAME ) == 0 
UPPPPPPPP” DS 


& EXTENSION ) == 
“PPP” Ds 


E ); 


printf( “insearching for files 


matching %sin”, 


1f( AllSearcher( FileMask, 


SrcProc ) ) 


printf( “in%sin”, 


) ); 
else 


FileMask ); 


FA ALL, 


strerror( errno 


printf( “%6d files foundin”, 


FilesFound ); 


printf( “inHeM 94in” ); 


return( 0 ); 
) 


/* That's all folks */ 


OS ÚLTIMOS LANÇAMENTOS 


PROGRAMAS 


PARA IBM PC 
A Partir de 


R$ 1,00 


Solicite catálogo completo gra- É 
tuitamente e receba um desconto E 
especial de 10% no seu primeiro FÉ 


pedido. 
Conheça também as mais 
incríveis bibliotecas de novas 
funções para seu Clipper S'87, 
5.01 ou 5.2 


NTA | 
Caixa Postal 6015 
FORTALEZA 
CEP 60451-970 


Participe do Clube do Windows 


| 5.174", 





CONTABILIDADE 


Super Contabilidade com Fontes 


WI Atualizado p/lei 8383. Fácil de ins- 


tatar e operar. help. Lançamentos 
retroativos. Emissão de diário, 
razão, balancetes e balanço. Lan- 
çamentos com ou sem contraparti- 
da. Histórico padrão alterável-no 
tançamento. Histórico total com até 
240 caracteres. Acesso em janelas 
a plano de contas, historico, calcu- 
ladora, agendas, etc. Senha. Mul- 
tiempresa, Listto Print/Edit. Aces- 
so ao DOS e dezenas de outros re- 
cursos. 5 disquetes de 5.1/4'": R$ 
30,00. OUTROS APLICATIVOS: 
Gestor Comercial (4 disquetes 
super estoque c/emissão de 
cupom), R$ 30,00; Folha Pgto. Se- 
manal, R$ 20,00; Bancário (até 6 
contas), R$ 20,00; Mala Direta 


E (cliente, fornecedor, etc). R$ 25,00 


So'ts executáveis prontos para 
o uso em PC XT/AT 286/386/ 
486/0S/PENTIUM c/Fontes em 
CLIPPER. INFODATA Informá- 
tica Ltda., Caixa Posta! 1224, 
E 01059 970, São Paulo,SP 

elis 
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HeM 1994 
FSRCH.C 


Conversao para linguagem C de um 
programa em Pascal de Neil Rubenking 
ad À 


/* 
define o prototipo da funcao a ser 
passada como parametro para searcher 
e allsearcher 
dr À 


tdefine SRCHPROC int ( *SearchProc )( 
gtruct ffblk *, char * ) 


/* 

variaveis globais utilizadas por 
AllSearcher 
À 


char GlobalSearchDirMask[ MAXFILE + 
MAXEXT - 1 J; 

char GlobalSearchDirAttr; 

int ( *GlobalSearchDirProc )( struct 
£ffblk *, char * ); 


/* 
A funcao Searcher procura arquivos 
no diretorio atual ou especificado. 
E ela quem faz todo o trabalho, e 
qualquer otimizacao fara mais efeito 
ge for feita aqui. 


Mask -> mascara de busca de 
arquivos ( *.exe por exemplo ) 

Attr -> filtro de atributos de 
arquivo 


SRCPROC -> funcao que processa cada 
arquivo encontrado 
deve ter o prototipo como 
na definicao acima 
ado É 


int Searcher ( const char *Mask, int 
Attr, SRCHPROC ) ( 

-egtruct ffblk SR; 

char Drive[ MAXDRIVE J]; 

char Ds[ MAXDIR J; 

char Ns[ MAXFILE ]; 

char Es[ MAXEXT 1; 

char DrDir[ MAXDRIVE + MAXDIR - 1 J; 

int ERR = 0; 


ERR = findfirst ( Mask, &SR, Attr ); 
while( ERR I= -1)€ 
f£nsplit ( Mask, Drive, Ds, Ns, Es 


strcpy( DrDir, Drive ); 
strcat ( DrDir, Ds ); 

( *SearchProc )( &SR, DrDir ); 
ERR = findnext ( &SR ); 


ERR = errno; 

L£( ERR == 18 || ERR == 2 ) 
return( 0 ); 

else 
return( ERR ); 


/* 
SearchDir procura diretorios 


| recursivamente. 


Utilizada por AllSearcher 
RÁ 


int SearchDir( struct ffblk *S, char P[ 


| MAXPATE ) ) « 


char TMP[ MAXPATH J]; 


1£( ( S->f£ attrib & FA DIREC ) && ( 
S->ff name[ 0 ] l=".'))4 
strcat ( P, S->ff name ); 
strcpy( TMP, P ); 
gstrcat ( TMP, NN” ); 
gtrcat ( TMP, GlobalSearchDirMask ); 
Searcher ( TMP, GlobalSearchDirAttr, 


| GlobalSearchDirProc ); 


strcpy( TMP, P ); 

gstrcat ( TMP, “N*.*” ); 

/* aqui esta a recursao */ 

Searcher ( TMP, FA DIREC | FA ARCH, 
SearchDir ); 


return( 0 ); 


) 


/* 
Esta funcao tambem procura em 
subdiretorios. Os parametros sao 
identicos aos de Searcher 
rd 
int Allsearcher( const char “Mask, int 


| Attr, SRCHPROC ) ( 


char TMP1[ MAXPATH J]; 
char Drive [MAXDRIVE)] ; 
char Ds[ MAXDIR ]; 
char Ns[ MAXFILE ]; 
char Es[ MAXEXT JJ; 
int Er; 


fneplit( Mask, Drive, Ds, Ns, Es ); 
strcpy( GlobalSearchDirMask, Ns ); 
strcat ( GlobalsSearchDirMask, Es ); 
GlobalSearchDirAttr = Attr; 
GlobalSearchDirProc = SearchProc; 
41£( ( Er = Searcher( Mask, Attr, 
SearchProc ) ) == 0) f 
gstrcpy( TMP1, Drive ); 
gstrcat ( TMP1, Ds ); 
gstrcat ( TMP1L, “*.*” ); 
return( Searcher( TMP1, FA DIREKEC, 
SearchDir ) ); 
) 
else 
return( Er ); 


/* That's all folks */ 


MICRO SISTEMAS 45 








Blocos V1.0 - Parte 1 





Eduardo Rocha Sbrissia 


O que é ? Todos lembram do velho “Soko-ban”, aquele 
joguinho de empurrar pedras nos buracos ? Pois é, o 
BLOCOS é um clone modificado deste famoso jogo, mas 
com gráficos VGA 640x480-16 cores no lugar de CGA 
320x2004 cores. Surgiu também um personagem novo, o 
“Chato” que, como o nome já diz, só atrapalhae querir atrás 
do nosso homenzinho, sem se importar com o que vê na 
frente, empurrando pedras até para os buracos (pode ser 
útil, não ?). O Blocos também permite que o usuário crie 
suas próprias fases, adicionando obstáculos e dificuldades 
à gosto. JOGO ECOLÓGICO. (REPARE AS CORES) 

Em que micro foi feito ? O que requer ? Posso rodar num 
XT-CGA ? O Blocos foi feito num 386 DX 40 com 4 MB de 
memória, 240 MB de HD, visor SVGA 1024x768-256 cores. 
Mas, infelizmente, não precisa de “tudo isso” para funcionar. 
Deve funcionar tranquilo num XT, ficando extremamente 
lenta a parte de desenho das fases (no início). Aconselho um 
286. Quanto ao tataravô CGA ou ao vovô EGA, estes não 
suportarão os gráficos. Resumindo: 286 com VGA roda legal 
o Blocos 1.0. Não mais de 50K serão utilizados na versão 
interpretada, com várias fases. 

Em que linguagem foi feito o Blocos ? Foi feito no QBASIC 
v.1.1 que acompanha o DOS 4, 5 ou 6, para que todos 
usuários (com VGA) possam entendê-o mais facilmente e 
também porque QUALQUER computador que se preze, tem 
no mínimo o DOS 4, que vem com o QBASIC. 

Qual é o objetivo de cada fase ? Colocar pedras nos 
buracos, movimentando o homenzinho o mínimo possível. 

Como movimentar o homenzinho ? Quais são as teclas 
do jogo ? 

- Para movimentar : | - sobe, K - desce, J - à esquerda, L à direita: 
- Para gravar o jogo : [CTRL] +[S] 

- Para ler o jogo gravado : [CTRL] +[L] 

- Para recomeçar fase : [R] 

- Para sair do jogo : [S] 


Como criar fases ? Entre num editor qualquer e digite a 
fase, gravando em modo ASCII e seguindo as orientações 
seguintes : 


Divirta-se com este super jogo VGA 


A eb cia ra ad Td PM TD RA A DRT PS SPD 3 np Tia O TS 57 


Micro: IBM 286/386 
Memória: 640 Kbytes 
Vídeo: VGA 256 Kbytes 
Linguagem: QBasic 
Requisitos: Nenhum 


Do PA pu ESTES NO PER RAS 
RR a RR A Do “po ste, 


e Pr 2 ri = ae E Em, 





a poe 


* Cada fase é composta de um arquivo TEXTO de 23 linhas, 
sendo que as 3 primeiras correspondem às mensagens da 
fase e as 20 seguintes, à fase propriamente dita. 


* A fase é um tabuleiro de 20 linhas por 40 colunas. Na 
criação, obedeça a este limite máximo. 


* Crie a fase obedecendo à seguinte legenda : 


[-] - (hífen) parede normal 
[/]- (barra inversa) parede não ecológica, tira 10 pontos 
[O] - (letra O maiúscula) buraco 
[0] - (letra o minúscula) pedra 
[X] - (letra X maiúscula) homenzinho (OBRIGATÓRIO) 
[Y] - (letra Y maiúscula) chato (NÃO É OBRIGATÓRIO) 


* ATENÇÃO: afase deve necessariamente estar cercada por 
paredes. 


* O NOME DO ARQUIVO QUE CONTÉM A FASE DEVE SEGUIR 
O PADRÃO: nnnnnnnn.DAD, onde nnnnnnnn é o número da 
fase. O programa lê as fases seguindo a ordem desta 
numeração. 


Exemplos : 00000001.DAD, 00001212.DAD. Neste caso, 
o programa lerá a fase 00000001.DAD e acabará, pois não 
existe a fase 00000002.DAD. 


Exemplo de fase (os escritos após ***, assim como 
estes, não devem ser digitados, são as explicações !!!!!!!). 
Grave como “00000001.DAD” (veja no quadro a seguir). 


OBS : À descrição e o nome da fase não devem ter mais 
de 37 caracteres cada. É VITAL que o número de PEDRAS 
seja igual ao número de BURACOS. A mensagem do final da 
fase pode ter até 80 caracteres. 


A digitação : Entre no QBASIC teclando QBASIC, digite a 
listagem e grave. Os escritos após [] são comentários, 
podem ser retirados durante a digitação. O programa está 
totalmente explicado. Digite os dois programas : 


srt, ER AE APL A MR EO e CR 


nba 
| Fase | 
O início do tudo. uau Quscracar de fes” 


a : » 4 -+ meo + à RR ) ç à E Rs 
Esta foi so me roino. continue cesim fo max Mensagua do 
* - . X E tg 


AE DESEN o Oo O O a A 


Ea Eae 
esa juicio de arquivo Mom dá fer 





PRA iss 


o ea po ME CNO ap 


o RA fode tesao fred fee fo JA 
SS an (DE FERE E E 
In E aim K 
io 
t 
) 
» 
|. 
k 
Rs 
ENO 
s 
; 
Es 
H 4 
4 + 
f 
sf ã 
; 
| 
i 
E ci= 
7 
| 
: 
po. 
|] 
| geo ds x É 
ESPERE EA a A a a E ij o AS ER e 


BLOCOS.BAS -> o jogo em si, 
CRIAEA.BAS -> programa que cria o arquivo de ESCORES 
ALTOS em branco. 


Execute primeiro o CRIAEA.BAS, para que o arquivo seja 
criado. Após isto, pode executar normalmente o Blocos 


PLA 








era 































US SOR TN 






LOST GRASS E UR RS 
* Declaraçio das funç es do Jogo 
DECLARE SUB FazDesen () 
DECLARE SUB PoeFig (1!, c!, oq$) 


* Declaraçio das matrizes normais ou 
compartilhadas (SHARED) 


AA PU RD SS DR A PSA NM TT O O A 


DIM SHARED parede%(1 TO 200) 

matrizes de desenho | 

DIM SHARED vazio%(1 TO 200) 4 | 

DIM SHARED pedra%(1 TO 200) ! 

E 

DIM SHARED paredeestr%(1l TO 200) ! 

DIM SHARED buraco%(1 TO 200) ! | 

4 

DIM SHARED bchelo%(1 TO 200) o 

DIM SHARED boy%(1 TO 200) 4 

su , 

DIM SHARED chato%(1 TO 200) ' 

DIM hs$(11), esc(11) a À 

Usadas no escore alto 

DIM TAB$(21, 41), bak$(20) “ 

Define tabuleiro 

SCREEN 12 * Inicializa 

modo gráfico 640x480 (VGA) | 

FazDesen * Desenha as | 

figuras e grava na memória 

NUMERO = O * nº atual da 

fase 

ESCORE = 0 * escore | 

inicial : 

comeco: * Começo de | 

cada fase | 
N'o está | 


RECOMECEIS = “N” f 


did ode ii Qd RD E = 


teclando QBASIC /RUN BLOCOS a partir do prompt do DOS 
(C:N>) ou carregando o QBASIC e teclando [ATLI+[F]+[0] 
(inglês), ou [ALTI+[AJH[A] (português) para ler BLOCOS. IXT. 

Posso compilálo no QUICK BASIC 4.0 ou superior ? Sim, 
sem problema algum. À versão compilada encontra-se nas 
melhores BBS's de Curitiba-PR, assim como algumas fases 
feitas por mim. 

Endereço para contato : Caixa Postal 78 CEP 83301-610 
PIRAQUARA - PARANÁ Fone : (041) 773 - 1874 Modem : 
(041) 773 - 1874 (8N1/2400/Echo:N/MNP:V42b) POR 
FAVOR, NÃO LIGUE + COBRAR !!!! e NO CASO DO MODEM, 
LIGUE ANTES PARA AVISAR E USE : 

Name: NOVO 

Password: NEW 

*++* Envie críticas e sugestões por carta ou modem. 

*k* Desenhos de fases também são aceitos. Pretendo 
fazer uma coleção com várias fases (cerca de 500) e enviar 
a BBS's. Coloque seu nome na mensagem de finalização da 
fase. 


za«4 EDUARDO ROCHA SBRISSIA tem 16anosecursaa 3º série 
==*s! do 2º grau em CuritibaPR. Programa em BASIC, DBASE IV, 
Ei CLIPPER, TURBO PASCAL e VISUAL BASIC. Desenvolve 
sistemas integrados e aplicações em geral. É autor de programas 
profissionais distribuídos em regime de shareware. 


PE Dm O ELLE PESE AR AI SE TA PR LAT TC cia 


E 


7 tamem q 
ver mata ger é 
Temor 14 


pr 





RE 





pe A ET A 5 ATA it 


|; recomeçando o Jogo 

' chatoS = “N” * Nio há chatos : 

i (até o presente momento) 

| NUMERO = NUMERO + 1 ' Próxima fase 

| SEGANT = TIMER 1 ltima movida 

| do chato 

i * Define nome do arquivo da fase 
arquivos = RTRIM$ (LTRIMS (STR$ (NUMERO) )) 
arquivos = STRING$(8 - LEN(arquivos), 
“0"y + arquivos + “.DAD” 


' Mensagem final 

mfinal$ = “1!!!111]111111111 Parabéns 11! 

Você zerou o Blocos V.1.0 
RR 

ON ERROR GOTO fim * Se 

houver erro na abertura do arquivo, vai 

p/o final. 

OPEN arquivoS$ FOR INPUT AS tl 

Tenta abrir arquivo da fage. 

IF RECOMECEIS = “S” GOTO comeco x 

está recomeçando o jogo, vai para o 

começo 

ON ERROR GOTO 0 K 
PRE tratamento de erros 

2 
| 
| 
| 
L 


e... 


Se 


QT = 0 “Quantidade de pedras nos 
buracos 
QTB = 0 “Quantidade de buracos 
+ Lê dados do arquivo de fases 
LINE INPUT &1, NOMEFASES 

fase 

LINE INPUT &1, DESCRFASES 

da fase 

LINE INPUT &1, FINALFASES 

do final da fase 


* nome da 
* descriçio 


'* mensagem 


DN dt MR RP VOS A SI A A NT PV E PA PT A Td A a SA PC Pa A 1 sia a a q a a a A A pt e 


FOR £f = 1 TO 20 
INPUT tl, baks (£) 
tabuleiro 
NEXT 
CLOSE &1 


ga A TE Sa 


* linhas do 


L A, A A a da a 


“Fecha 
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arquivo 


* Passa linhas inteiras para divis'o de 
colunas e linhas 
POR f = 1 TO 20 
FOR g = 1 TO 40 
TAB$S(£, g) = MIDS (bak$ (£), g, 1) 
IP TAB$S(£f, g) = “0” THEN QOTB = QTB 
+ 1 * Conta o número de buracos 


'* linha e coluna inicial do 
homenzinho 

IF TAB$(£, 9) = “X” THEN 

LBOY = £: CBOY = g: TAB$(£, g) 


END IF 


' linha e coluna inicial do chato 
IP TABS(£, g) = “Y” THEN 

CHEATL = £: CHATC = g: chatos = “8” 
END IF 


CALL PoeFig(£f, g, TAB$S(£, g)) 
* Desenha 
NEXT 
NEXT 


' Mensagens do jogo 

LOCATE 26, 1: PRINT “BLOCOS V. 1.0 (C) 
1994 BY Eduardo Rocha sbrissia” 

LOCATE 27, 1: PRINT NOMEFASES; ” - “4; 
DESCRPASES 

LOCATE 28, 1: PRINT “Buracos : 

Pedras nos buracos : Escore :” 


' Imprime estatíticas 
GOSUB ESTAT 


INICIO: | 

início (da rotina do jogo) 
mov$ = INKEYS 

Espera uma tecla 

mov$ = UCASES (mov$) 
transforma para maiúscula 
CALL PoeFig(LBOY, CBOY, “X” 





Desenha o homenzinho 


'* Se houver chato, e tenha passado 1/4 
de segundo, chama sua rotina de “vida” 
IF chato$ = “S” AND TIMER - SEGANT > .25 
THEN GOSUB chato 


* Se a quantidade de pedras nos buracos 
for igual a quant. de buracos, 
completou-se a fase 

IF QT = QTB GOTO completou 


SELECT CASE mov$ 


* CTRL+S - Salva o jogo 

CASE CHRS$ (19) 

LOCATE 28, 1: PRINT STRING$(80, “ “) 
LOCATE 28, 1: PRINT “Salvando jogo ... 
Aguarde 111” 

FOR £f = 1 TO 20 

bak$(£) = 2” 

FOR g = 1 TO 40 

baksS (£) bak$(£) + TAB$S(£, g) 

NEXT 

NEXT 


OPEN “JOGO SAL.VO” FOR OUTPUT AS &1 
“Abre arquivo com o jogo salvo 
PRINT H1, NOMEFASES 

* Grava nome da fase 

PRINT fl, DESCRFASES 

* Grava descriçio da fase 

PRINT &1, FINALFASES 

* Grava mensagem do final da fase 
POR £f = 1 TO 20 

“Grava tabuleiro 

NEXT 

PRINT fl, ESCORE 

“Grava escore 

PRINT &1, NUMERO 

“Grava fase 

PRINT É1, QT 

“Grava qt. de buracos 
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Frank ). Derfler Jr.e Les Frecd 
MEL 


DERFLER JR./FREED, GUIA PC 
MAGAZINE DO WINDOWS PARA 
WORKGROUPS - 324 PÁGS 
Guia para obtenção de informações so- 
bre instalação, recursos para grupos de 
trabalho e compatibilidade. Para usuá- 
rios, gerentes e administradores de sis- 

temas. 


cód: 1-Preço: R$ 16,75 


qUIARA AGA, 
E gw tás 


viy 
Vy 


uDicos Básicos 
DD nEspicocões 
Pres 


w GuiG Essencial 
pera iniciantes 





IBPI, DOS 6 
MÉTODO RÁPIDO - 120 PÁGS 
Guia essencial para iniciantes e indis- 
pensável para quem já o utiliza. Re- 
cheado de dicas básicas e explicações 
práticas e objetivas. 


Cód: 5- Preço: R$ 8,31 


CONECTIVIDADE 
DE BANCOS 
DE DADOS 


| (DEE. ++ Solaris 
HACKATHORN, CONECTIVIDADE 
DE BANCOS DE DADOS 
EMPRESARIAIS — 352 PÁGS 
Este importante livro fornece uma ava- 
tiação completa dos bancos de dados 
heterogêneos entre corporações, com 
ênfase especial na distribuição de aplt 
cações empresariais para 0 desktop. 


Cód: 9- Preço: R$ 19,49 





PC MAGAZINE, DESVENDANDO O 
DOS 6 - 676 PÁGS 

Este livro baseia-se no mesmo tipo de 
treinamento utilizado com sucesso 
nos estabelecimentos de ensino da 
PC Learning Labs, espalhados nos 
Estados Unidos. Atravês de disquete 
com exemplos incluído no livro, o leitor 
aprenderá com o método mais fácil, 
mais rápido e mais eficaz. 


Cód: 2- Preço: R$ 30,41 






IBPI, WINDOWS 3.1 
MÉTODO RÁPIDO —- 108 PÁGS 
É um guia rápido e eficiente, ideal para 
iniciantes neste novo ambiente opera 
cional, e indispensável para quem já 
conhece e deseja tirar dúvidas de for- 
ma clara, objetiva e rápida. 


Cód: 6- Preço: R$ 8,31 















Bancos de Dados 
Servidor 


Joe Salemi 


SALEM!, GUIA PC MAGAZINE PARA 
BANCO DE DADOS 
CLIENTE/SERVIDOR - 350 PÁGS 
Através de explicações em linguagem 
clara e conselhos oportunos, o leitor 
encontrará as tecnologias existentes 
e emergentes para o objetivo de sua 

empresa. 


Cód: 3 - Preço: RS 21,10 





IBPI, EXCEL 4 

MÉTODO RÁPIDO - 120 PÁGS 
Esta obra mostra ao leitor os recursos 
do programa, estudando casos reais e 
que poderão ser usados no dia-a-dia 
de sua atividade e como base para O 
desenvolvimento de trabalhos mais 
complexos. 


Cód: 7- Preço: R$ 8,93 
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PC MAGAZINE, DESVENDANDO O 
MICROSOFT ACCESS - 576 PÁGS 
Obra mais completa em nosso idioma 
sobre este novo produto da Microsoft. 
Já apresenta os comandos em portu- 
guês, incluindo um disquete com inú- 

meros exemplos. 


Cód: 4 - Preço: R$ 31,65 


POR WINDOWS 


E REM PT RICE A TC 


sqÁPARA beRina 
iva lago 





IBPI, WORD.EOR WINDOWS 2.0 
MÉTODO RÁPIDO - 200 PÁGS 
Amplamente ilustrado, este livro forne- 
ce dicas básicas e explicações práti- 
cas e objetivas para os usuários deste 

excepcional editor de textos. 


cód: 8 - Preço: R$ 12,16 
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E Livraria e Editora Infobook S.A., no valor total do pedido. Despesas postais por conta da editora. | 
& Enviar seu pedido para: Rua Lourenço Ribeiro, 124-A - Rio de Janeiro - RJ - 21050-510 |! 
E |] 
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p CGC: Insc. Est.: ] 
à Endereço: | 
8 Cep: Bairro: Cidade: Est.: i 
1 Data: / / Assinatura: 8 


R Ms 141 


Da A DN La DRA 


vNNeRIR ARS cama jean entered 


Di natal a 
a 


| LOCATE 28, 1: PRINT “Buracos : 


E Ra VP PE ART E Ip A A 


PRINT fi, QTB 


“Grava qt. de pedras nos buracos 


PRINT fl, LBOY 


“Grava posiçio do homenzinho 


PRINT f1, cBoy 


“Grava posiçio do homenzinho 


PRINT Fl, CHATL 


“Grava posiçio do chato(se houver) 


PRINT &1, CHATC 


“Grava posiçio do chato(se houver) 


PRINT F1, chatos 
“grava se há chato 
PRINT fl, CCA 


“Grava posiçio do chato(se houver) 


PRINT Fl, CLA 


“grava posiçio do chato(se houver) 


CLOSE f1 
“Fecha arquivo 


' Pedras nos buracos : 


' Imprime estatíticas 


- GOSUB ESTAT 


mov$ = 4” 


'- GOTO INICIO 


- * CTRL+L - Lê o jogo salvo 
'- CASE CHR$ (12) 
' ON ERROR GOTO Blocosin 


' Dio existir, volta p/ o início 
- OPEN “JOGO SAL.VO” FOR INPUT AS Fl 
- "Abre arquivo com o jogo salvo 


: ON ERROR GOTO 0 


- LOCATE 28, 1: PRINT STRING$ (80, “ 4“) 
' LOCATE 28, 1: PRINT “Lendo Jogo ... 


- Aguarde 111” 
| ESCORE = 0 

: NUMERO = 0 
QT =0 


MARA a Dr E E PE PO PATO A 


Ce Mm ag 


QOTB = 0 
LBOY = 
CBOY = 
CHATC 
CHATL 
chats 
CCA = 
CLA = 
LINE INPUT &1, NOMEFASES 
' Lê nome da fase 

LINE INPUT f1, DESCRFASES 
' Lê descriçio da fase 
LINE INPUT &1, PINALPASES 


0 
0 


Somnmuia 
00 


* Lê mensagem do final da fase 


FOR £ = 1 TO 20 
bak$(£) = 2” 
INPUT fl, bak$(£) 
'Lê tabuleiro 
NEXT 

INPUT 41, ESCORE 
'Lê escore 

INPUT fl, NUMERO 
'Lê fase 

INPUT &1, QT 

“Lê qt. de buracos 
INPUT F1, QTB 


“Lê qt. de pedras nos buracos 


INPUT &1, LBOY 

“Lê posiçio do homenzinho 
INPUT &1, CBOY 

'Lê posiçio do homenzinho 
INPUT fl, CHATL 


'Lê posiçio do chato(se houver) 


INPUT fl, CHATC 


'Lê posiçio do chato(se houver) 


INPUT &1, chatos 


- !'1ê se há chato 


era “ER A 270 Pr rec, 
AMC AA re ri e 


Br es “=, dE 
2 sa: AS NEA Neat ABAS 
E RC SSERSTRAS 


PRE POR ge eg e E 


| 


ro to a a a 


o ES 


pe RA E E + A ATER A ATARI Sa mp 


INPUT fl, CCA 





INPUT fl, CLA 


MS VP IE IARA o da 


CLOSE &1 
'Fecha arquivo 
“f=1 
' g=1 


POR £ = 1 TO 20 
FOR g = 1 TO 40 


"Lê posiçio do chato(se houver) 
'Lê posiçio do chato(se houver) 


AR PR PRAIA 2 e E PP ri PP rp “AR TR Ti Tr 


3 


' CALL PoeFig(£f, g, TABS(£, g)) 


' * Desenha 
- NEXT 
NEXT 


- LOCATE 27, 1: PRINT STRINGS (80, “ 4“) 
LOCATE 27, 1: PRINT NOMEFASE$; “ - 4; 


' DESCRFASES 
PRINT “Buracos : 
buracos : 


Pedras nos 
Escore 4” 
i 


* Imprime estatíticas 


| GOSUB ESTAT 

' SEGANT = TIMER 
mov$ = 4 

' GOTO INICIO 


| * Recomeçar a fase ? 


: CASE “R” 


End aca À 


“ea 


N) “; res 
reS$ = UCASES (res 


ES =P Td PTE AD A Sie 


nº de pedras nos 
NUMERO = NUMERO 





LOCATE 28, 1: PRINT STRING$(80, “ “) 
LOCATE 28, 1: INPUT “RECOMEÇA a fase (S/ 


) 


LOCATE 28, 1: PRINT “Buracos : 
Pedras nos buracos : 
IF re$ = “8” THEN 
ESCORE = ESCORE - 
Penalizaçio por recomeçar é 300 vezes o 


Escore :” 
(300 * QT) : 


buracos 
- 1 * Volta 


' uma fase (O “comeco” aumenta 1, portanto 


fica na mesma) 
PLAY 


“MBt2550212cp6414cp64112cp6412cp6414dHD6 
418dp6414dp6418cp6414cp640118bp640212c” 


GOTO comeco 
END IF 


' Imprime estatíticas 


GOSUB ESTAT 
GOTO INICIO 


CASE “8” 
LOCATE 28, 1: PR 


LOCATE 28, 1: INPUT “SAI do Jogo (S/N) 


“us res 
reS$ = UCASES (res 


LOCATE 28, 1: PRINT “Buracos : 
Pedras nos buracos : 


| 
| 
| 
| '* Sair do Jogo ? 
| 
| 
| 


GOSUB ESTAT 


IF re$ = “S” THEN 


'* Mensagem final 
mfinal$ = “292797? 
Jogue novamente 
PPPPPPPPPPPM 


Goro fim 
END IF 


* Imprime estatí 
| 

| 

l GOTO INICIO 


INT STRING$(80, “ 4“) 


) 
Escore :” 


ticas 


?????? Já vai embora 2??? 
o Blocos v.1.0 It1 
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MONTE SEU PRÓPRIO AT 286, 386 OU 486. 
APRENDA VÁRIAS DICAS DE COMO TIRAR UM MELHOR 
PROVEITO DOS RECURSOS DO SEU MICROCOMPUTADOR. 

Com os livros do Eng. LAÉRCIO VASCONCELOS 


a MONTAR, CONFIGURAR E EXPANDIR SEU AT 386/486 


Agora a venda também nas principais livrarias de informática de São Paulo:BOOKWARE, LITEC E CULTURA. 
Estamos cadastrando livrarias e revendas em todo o Brasil. 

Aborda: Montagem de XT e AT 286, 3865X, 386DX e 486. Fontes, gabinetes, NO-BREAKS, estabilizadores, aterramento, DRIVES, Aspire 
CGA, HERCULES, EGA, VGA, e SUPER VGA. Placas MULTI-VO, IOSA, UDC e IDEPLUS. Placas de CPU, expansão de memória, instalação de memória 
CACHE, uso de memória ESTENDIDA e EXPANDIDA, SHADOW RAM, SETUP, STRAPS, WINCHESTER, conversão de XT em AT, conversão de 286 em 386 
e 486, co-processador aritmético, instalação de MOUSE, MODEM/FAX, SCANNER, SOUND BLASTER, etc. 


NÉ IBM PC: DICAS E MACETES DE SOFTWARE VOL. 1 


Centenas de DICAS para você usar melhor o seu PCl!! 
Você nunca viu tantas informações úteis sobre SOFTWARE em um único livro. A cada página é encontrada uma dica que pode ser imediatamente aplicada ao seu 


, resultando em maior velocidade, produtividade, segurança e facilidade de uso. E mais: Cópias de disquetes protegidos, uso de MEMÓRIA 
ESTENDIDA, EXPANDIDA, EMS, XMS, HMA, UMB, compactadores de arquivos, recuperação de discos formatados e arquivos 


apagados, programas gráficos, 
proteção do computador em nível de software, teste da CPU, de WINCHESTER e da placa de vídeo, comandos úteis do DOS, como criar da melhor forma seus 
arquivos AUTOEXEC.BAT e CONFIG.SYS. E mais dezenas de outras dicas. 


É ÚrBM PC: DICAS E MACETES DE SOFTWARE VOL. 2 


Aprenda mais outras DICAS muito úteis que o ajudarão a esclarecer suas dúvidas. 
Mais dicas para você tirar o máximo proveito do seu micro. Fique por dentro das novidades do MS-DOS 6, saiba como acelerar o desempenho do 
WINCHESTER, dos DRIVES e do CD-ROM, usar a memória, recuperar arquivos apagados, melhorar os arquivos BATCH, duplicar a capacidade do winchester, 


editar trilhas e setores, BACKUP, programas gráficos, animações gráficas, comunicação de dados, ANTI-VÍRUS, acentuação, miscelânea de dicas e macetes e 
muitas outras grandes utilidades. 






SOFTWARE DE DOMÍNIO PÚBLICO E SHAREWARE 


SOLICITE NOSSO CATÁLOGO GRATUITAMENTE E VEJA AS VANTAGENS DOS NOSSOS PROGRAMAS: 
1) São todos compactados com o popular compactador PKZIP, o que reduz o tamanho e o custo para os clientes. 
2) São fornecidos em disquetes novos e de BOA QUALIDADE. 


3) São todos acompanhados de um arquivo LAERCIO. DOC que traz as instruções para a instalação e sua Imediata utilização. 

4) São todos testados e homologados pela nossa equipe técnica. 

5) A maior vantagem: são cobrados por tamanho, e não por disco. Enquanto outras empresas cobram 3 discos por 3 programas de 120 KB, nós cobramos por 
apenas um único disco de 360 KB com os três programas juntos. 


Indique os livros desejados Recorte, preencha e envie para: 


( ) Estou enviando cheque nominal ao autor, Laércio Vasconcelos Laércio Vasconcelos 
( ) Desejo receber o catálogo de programas CAIXA POSTAL 4391, CEP 20.001-970 Rio de Janeiro, RJ 


Preços em REAL: Nome: 
COMO MONTAR, CONFIGURAR E EXPANDIR SEU AT 386/486 ( ) 27,50 REAIS endereço: 
IBM PC: DICAS E MACETES DE SOFTWARE VOL. 1 ()2375 REAIS Cidade: | CEP: 


IBM PC: DICAS E MACETES DE SOFTWARE VOL. 2 () 27,50 REAIS Telefone; 
' Para sua segurança, envie em carta registrada. 





CASE “T” '* Para 
cima | 
s1$ = TABS(LBOY - 1, CBOY) R 


conteúdo do 1º lugar acima do homenzinho 
(se é pedra,etc) 

s2$ = TABS(LBOY - 2, CBOY) R 
conteúdo do 2º lugar acima do homenzinho 
lbol = LBOY - 1 1 1º 
posiçio numérica acima do homenzinho 
lbo2 = LBOY - 2 + 2º 
posiçio numérica acima do homenzinho 

* 1º e 2º posiç es numéricas ao lado 
(dir. ou esq.) do homenzinho. 

'* Sio iguais a atual, pois ele mover-se-á 
horizontalmente 

cbo2 = CBOY 


cbol CBOY 

CASE “KR” * Para 
baixo 

81$ = TABS(LBOY + 1, CBOY) á 


conteúdo do 1º lugar abaixo do homenzinho 
828 = TABS (LBOY + 2, CBOY) 1 
conteúdo do 2º lugar abaixo do homenzinho 


lbol = LBOY + 1 + 1º 
posiçio numérica abaixo do homenzinho 
lbo2 = LBOY + 2 1 2º 


posiçio numérica abaixo do homenzinho 
* 1º e 2º posiç es numéricas ao lado 
(dir. ou esq.) do homenzinho. 


'* Sio iguais a atual, pois ele mover-se-á 


horizontalmente 
cbol = CBOY 
cbo2 = CBOY 


CASE “J” 
esquerda 
8s1$ = TABS(LBOY, CBOY - 1) ú 
conteúdo do 1º lugar à esquerda do 
homenzinho 

s2S = TABS$(LBOY, CBOY - 2) : 
conteúdo do 2º lugar à esquerda do 
homenzinho 


* Para a 


cbol = CBOY - 1 + 1º 
posiçio numérica à esquerda do homenzinho 
cbo2 = CBOY - 2 1 2º 


posiçio numérica à esquerda do homenzinho 
* 1º e 2º posiç es numéricas ao lado 
(inf. ou sup.) do homenzinho. 

* Sio iguais a atual, pois ele mover-se-á 
verticalmente 


lboi = LBOY 

lbo2 = LBOY 

CASE “L” * Para a 
direita 

si$ = TAB$(LBOY, CBOY + 1) E 


conteúdo do 1º lugar à direita do 
homenzinho 

s2$ = TABS (LBOY, CBOY + 2) A 
conteúdo do 2º lugar à direita do 
homenzinho 

cbol = CBOY + 1 + 18 
posiçio numérica à direita do homenzinho 
cbo2 = CBOY + 2 + 2º 
posiçio numérica à direita do homenzinho 
* 1º e 2º posiç es numéricas ao lado 
(inf. ou sup.) do homenzinho. 

* Sio iguais a atual, pois ele mover-se-á 
verticalmente 

lbol = LBOY 

lbo2 = LBOY 


CASE ELSE 
* Se a letra pressionada n'o tem funçio 


MICRO SISTEMAS 





no jogo, volta para o início 
GOTO INICIO 
END SELECT 


* Faz um blic.. 
PLAY “MBt25505164deg” 
sS$ = TAB$(LBOY, CBOY) * conteúdo atual 


“da posiçio do homenzinho 


* testa conteúdo da 1º pos. 
SELECT CASE s1$S 


'Se for parede , volta ao início 
CASE “=! . 
GOTO INICIO 


“Se for parede nio ecolégica, volta ao 
início 

CASE 4 /” 

GOTO INICIO 


'Se o 1º for CHATO, volta ao início 
CASE “Y” 
GOTO INICIO 


CASE “o” 'Se o 1º for pedra 

'Se 2º for pedra, buraco cheio, paredes 
ou chato, volta ao início 

IF s2$ = “0” OR 82$ = “-" OR s2$ = “/" 


"OR 82$ = “0” OR 82$ = “Y” GOTO INICIO 


IF 92$ =” “ THEN 82$ = “0”; 91$ =“ 4“ 

' 2º vazio ? entlio 2º=pedra e 1º= nada 

* 2º buraco ? entio 2º=b. cheio e 1º= 
nada. Ganha 300 pts e acrescenta 1 pedra 
no bur. 

IFP s2$ = “0” THEN s2$ = “0”: sl$ =“ 4, 
QT = QT + 1: ESCORE = ESCORE + 300: PLAY 
“MBt10003bcdefga” 


CASE “0” "Seo 1º for b. cheio 

“Se 2º for pedra, buraco cheio, paredes 

ou chato, volta ao início 

IF s2$ = “o” OR s2$ = “-" OR s2$ = “/" 

OR s2$ = “0” OR 82$ = “Y” GOTO INICIO 

* 2º vazio ? entio 2º=pedra e 1º= 

id id Perde 300 pts e dim 1 pedra no 
F. 

IF s2$ = “ “ THEN s2$ = “o”; siS$ = “0”: 

QT = QT - 1: ESCORE = ESCORE - 300: PLAY 

“MBt10003agfedcb” 

IF s2$ = “O” THEN s2$ = “0”; sl$ = “0” 

* 2º buraco ? ent!o 2º=b. cheio e 

1º=b.vazio 


CASE ELSE 
END SELECT 


* Redesenha 1º e 2º posiç es 
CALL PoeFig(lbol, cbol, s1$) 
CALL PoeFig(lbo2, cbo2, s2$) 


'Redesenha posiçio antiga do homenzinho 
CALL PoeFig(LBOY, CBOY, TABS (LBOY, 
CBOY)) 


* Refaz tabuleiro com as novas figuras 
(pedras,etc) nas posiç es movidas 

TABS (lbol, cbol) = sig 

TAB$ (lbo2, cbo2) = s2$ 


Continua na próxima edição 


CRAZY SOFT INFORMÁTICA 
2: 456-8373 





PRAZO P/ GRAVAÇÕES: 24 hs 
PEDIDO ACIMA DE 15 DISCOS 
GANHE 1 HD DE BRINDE 
SOLICITE CATALOGO GRATIS 
COM RELAÇÃO COMPLETA 


OS MELHORES 


ALONE IN THE DARK II 
AMERICAN GLADIATOR 
B-17 FLYING FORINESS 
B-WING (X-WING) 
BLAKE STONE 

BODY BLOW 

CHESS MANIAC 5 AND 1 
CHESS MASTER 4000 


COMANCHE MAX. OVERKILL 


CRISIS IN THE KREMILIN 
DARK 

DOOM 

DRACULA 

DUNE TI 

EMPIRE SOCCER 94 
F-15 SIRIKE EXE TIT 
FALCON 3.0 

FURY OF THE FURIES 
GABRIEL KNIGHT 
GOBLINS III 

HARD BALL 3 

HEART OF CHINA 


IMPERIAL PERSUTT (X-WING) 


INDY CAR RACING 
JORDAN IN FLIGRT 
JURASSIC PARK 

LEGEND OF KYRANDIA II 
LEMMING'S II THE TRIBES 


MANIAC MANSION II DAY TEN. 


METAL & LANCE 
MONKEY ISLAND II 
MORTAL KOMBAT 
PINBALL FANTASIES 
PIRATES GOLD 
PRIVATEER 

RALLY 

SAM & MAX 

SANGO FIGHTER 
SHADOW OF PRESIDENT 
SIM CITY 2000 

ESPACE HULK 

SPEAR OF DESTINY 
SPECIAL FORCES 
SPEED RACER 

SIREET FINIER HU 
TASK FORCE 1942 
TERMINATOR RAMPAGE 
TROLLS 


09 HD 
02 HD 
05 HD 
01 HD 
03 HD 
01 HD 
12 HD 
03 HD 
03 HD 
04 AD 
05 HD 
05 HD 
01 HD 
04 HD 
01 HD 
06 HD 
05 HD 
02 HD 
11 HD 
05 HD 
03 HD 
07 HD 
01 HD 
03 HD 
02 HD 
04 HD 
08 HD 
02 HD 
07 HD 
08 HD 
08 HD 
03 HD 
02 HD 
06 HD 
06 HD 
06 HD 
07 HD 
06 HD 
03 HD 
02 HD 
04 HD 
02 HD 
02 HD 
03 HD 
06 HD 
06 HD 
06 HD 
03 HD 


WOLFEINSTAIN (60 MISSÕES) 01 HD 





1001 

ABC FUN KEY 

ABC TALK 

ABILITY 

ADVENTURE TOOL KIT 
AGENDA ELETRONICA 
AGENDA TELEFONICA 
AMNESIA (VGA) 
AMPLE NOTICE 
AQUARELA 

ARJ MENU 

ARTIST 

ASTROLOGY 94 
ATLAS PC 

BACKIT 2.0 

BAND IN THE BOX (SB) 
BANNER MANTA 
BARCODE 

CHECK IT 

CHEMICAL MOLECULAR 
COLLAGE 
COMPUSHONW 2 
CRYSTAL 

D.A.P VS 147 


EASY INVENTORY 

ELET. WORKBENCH (VGA) 
ENVELOPE LASER 

EXICK 2.09 

FACIL 

FANCY LABEL 
FANTAVISION 















DIADEMA - SP 
CEP: 09911-190 


AÇÃO - AVENTURA 


02 DD 
02 DD 


BABY JO JO IN GOING HOME 01 AD 


BARBARIAN 

BATMAN THE MOVIE 
BIO MENACE 

CABAL 

CAPTAIN COMIC II 
CD-MAN 

COBRA MISSION 
COLORADO 
COMMANDER KEEN V 
CRISTAL CAVES 

DICK TRACY 

DOUBLE DRAGON III 
DRAGON 'S LAIR IV 
ELECTRO BODY 
FIRST SAMURAI 
FLASH BACK 

GHOST *N"GOBLINS (JOYST) 
GHOSTBUSTER II 
GODS 

GOLDEN AXE 
CREMUINS II 

HOME ALONE 1 
IND.JONES LAST CRUZADE 
JILL CF THE JUNSLE TI 
KARATEKA 

MIAME VICE 

MARIO BROSS IS MISSING 
MOONWALKER 
OPERATION WOLF 
OSCAR 

OUT OF THIS WORLD 
PREDADOR II 

PRINE OF PERSIA II 
ROBOCOD 

ROBOCO?P 3D 
SHINOBI 

SIMPSONS II 
SIMPINS III 

SUPER CONTRA 
TARTARUGA NINJA III 
TERMINATOR II 

THE HUMANS 

THE LOST VIKINGS 
THEXDER II 

ULTRA BOTE 
WOLFEINSTAIN 3D 
WOLFEINSTAIN UP-GRADE 


01 DD BLADE OF DESTINY 
01 HD CARMEM S.DIEGO DELUXE 
01 HD CONQUEST OF CAMELOT 
02 DD CURSE OF ENCHART (VGA) 
01 HD DARK LAND 

01 HD DUE HI 

05 HD ECOS QUEST (VGA) 

02 DD HIVIRA II 

01 HD GALLIONS OF GLORY 

02 DD GOBLINS 

D6 DD GOELINS II 

01 HD HEART OF CHINA 

12 DD HOOK 

01 DD IND. JONES FATE OF ATLANT. 
01 HD INSPECTOR GADGET 

03 HD KB (VGA) 

01 DD LEGEND OF KYRANDIA 
01 HD LEISURE SUIT LARRY V 
01 HD LIFE & DEXIH II 

02 DD REX NEBULAR 

01 DD ROBIN HOOD 

02 DD ROME 

02 DD SHERLOCK HOLMES 

01 HD THE DARK HALF 

01 DD THE IMMORTAL 

04 DD ULTIMA UNDERNOLD II 
05 HD VINGANCE OF ESCALIBUR 
01 HD 

03 DD ESPACIAIS 
01 HD 

01 HD DOWN RAIDER 

03 DD ELITE 

02 DD EPIC 

01 HD GALACTIX 

04 HD INCA (VGA) (386) 

02 DD KILOBLASTER 

02 HD MACB 3 

01 HD MAJOR STRIKE 

03 DD MANTIE 

01 HD PLAN 9 FROM OUTER 

01 HD STELLAR 7 

02 HD STAR LEGIONS 

01 HD STRIKE COMMANDER 

01 HD TWILIGHT 2000 

02 HD VOLFIED 

01 HD WING COMMANDER II 

01 HD X-WING 


ADVENTURE - R.P.G 


ALONE IN THE DARK 
AMAZON 
BATMAN THE RETURN 


05 HD 
08 HD 
07 HD 
03 HD 
05 HD 
02 HD 
07 AD 
11 HD 
04 HD 
04 HD 
03 HD 
01 HD 
02 AD 
02 HD 
07 HD 
03 HD 
06 HD 
04 HD 
03 HD 
04 HD 
08 HD 
03 HD 
10 HD 
07 HD 
02 HD 
10 HD 
04 HD 
01 HD 
05 HD 
02 HD 


01 HD 
01 DD 
06 HD 
02 HD 
10 HD 
01 HD 
01 DD 
02 HD 
09 HD 
03 HD 
01 HD 
02 HD 
08 HD 
03 HD 
01 HD 
08 HD 
os HD 


ED. GRÁFICO 
ENSINA INGLÊS 
ENSINA INGLÊS 

ED. TEXTO GRÁP. 

ED. JOGOS 

AGENDA 

AGENDA 

DEMOST. GRÁF. MUSIC. 
AGENDA 

ED. GRÁFICO 
COMPACTADOR 

ED. GRÁFICO 
ASTROLOGIA 
ENCICLOPEDIA GEOG. 
COMPACTADOR 

ED. MUSICAL 

ED. DE FAIXAS 

ED. CODIGO DE BARRA 
CHECK -UP DO MICRO 
AULA DE QUIMICA 
ED. LE SLITES 
DEMOST. DE TELAS 
DEMOST. GRÁFICA 
DESTRAV. DE JOGOS 
DEMOST. GRÁFICA 
ED. GRÁFICO 
COPIADOR 

ED. ETIQUEIAS 
CONTR. DE ESTOQUE 
ED. CIRCUITO ELETR. 
ED. ENVELOPE 
CONTR. DE ESTOQUE 
ED. TEXIO 

ED. ETIQUETAS 

ED. GRÁFICO 


01 DD 
01 DD 
01 DD 
02 DD 
02 DD 
01 DD 
01 DD 
01 HD 
01 DD 
Oi DD 
02 DD 
01 DD 
01 DD 
01 DD 
01 DD 
01 HD 
01 DD 
01 DD 
02 DD 
D1 DD 
01 DD 
01 DD 
01 DD 
01 DD 
01 DD 
01 HD 
01 DD 
01 DD 
01 DD 
01 HD 
01 DD 
01 DD 
01 DD 
01 DD 
01 DD 


FDREAD & FDFORMAT 
GRAPH IN THE BOX 


HAUNTED HOUSE SOUND (SB) 


IMAGE 3-D 

LABELS PRO 

LARELS UNLIMITED II 
LYRA (SB) 

MODPLAY 
MUSICAS P/BAND IN T. BOX 
MUSICAS 4 1 (*.MCD) 
MUSICAS 4 2 (*.MOD) 
NEOPAINT 2 (VGA) 
NEVER LOCK 93 

PC GLOBE 

PKZIP 2.04 

PRINT MASTER 
PRINT SHOP 
PRO-DOS 
PROFISSIONAL FILES 
PROFESSOR DE INGLÊS 
RELISH IT 

Q-387 

RAW COPY 

SKY GLOBE 


SPECTRUM EMULATOR (VGA) 


TEIAS & 1 .GIF (VGA) 

TELAS (*.PCX) (VGA) 

TRE MUSIC CONSTRUCTION 
TRACK ELASTER (SB) 
TURBO DESIGNER 

VISUAL COMPOSER (AD) 


FORMATADOR 
ED. GRÁFICO 
PROG. SONORO 
ED. GRÁFICO 3-D 


ENCICLOPEDIA GEOG. 
COMPACTADOR 

ED. DE CARTAZES 
ED. DE CARTAZES 
CONV. *.BAT P/ *.BXE 
MALA DIRETA 
ENSINA INGLÊS 
DESKTOP PUBLISHER 
EMULADOR DE CO-PROC. 
DESTRAV. DE JOGOS 
MAPA ESTRELAR 
EMUL. TK90-X 

TELAS *.GIF 

TELAS *.ICX 

ED. MUSICAL 

ED. MUSICAL 

ED. GRÁFICO 

ED. MUSICAL 

PROG. MUSICAL 
COPIADOR 

VIDEO TEXTO VTX 
PROG. MUSICAL 


01 DD 
01 DD 
01 HD 
01 DD 
02 DD 
01 HD 
D1 HD 
01 DD 
01 HD 
04 HD 
04 HD 
01 HD 
01 DD 
01 HD 
01 DD 
01 DD 
01 HD 
01 DD 
01 HD 
02 DD 
08 DD 
01 DD 
01 HD 
Di DD 
01 DD 
02 HD 
04 DD 
01 DD 
01 HD 
01 DD 
01 HD 
01 HD 
01 HD 
01 DO 
01 DD 


R. TIRADENTES, 433 CONJ. 5 





E” OS MELHORES JOGOS PARÁ PC & 


MENORES PREÇOS 
DISCO CNGRAVAÇÃO: 


DISCO 5 DD 
DISCO 5 4 HD 
CORREIO P/ 20 DISCOS 


SIMULADORES 
A-10 TANK KILLER TI 08 DD 
ACES OF PACIFIC 03 HD 
AFTER BUNNER II 02 DD 
BATTLE HAWKS 1942 02 DD 
F-117 02 HD 
F-14 TOM CAT 01 HD 
F-15 SIRIKE FAME 02 DD 
F-16 COMBAT PILOT 02 DD 
FLICHT SIMULATOR 4.0 02 DD 
GREAT NAVAL BATTLE 03 HD 
GUN SHIP 2000 03 HD 
JET FIMHIER IN 01 HD 
LHX ATTACK CHOPPER 02 DD 
M-1 TANK PLATTON 01 HD 
PACIF ISLAND (VGA) 01 HD 
RED BARON (VGA) 02 HD 
SHERMAN M-4 01 HD 
SENT SERVE II 01 HD 
STUNT ISLAND 06 HD 
TASK FORCE 1942 06 HD 
TORNADO 03 HD 
WOLF PACK oi HD 
CORRIDAS 
1000 MICLIAS 02 HD 
4X4 OFF ROAD RACING 01 DD 
B.M.W 01 HD 
CAR & DRIVER 03 HD 
CRAZY CAR II 01 HD 
F-40 PERSUIT SIMJLATOR 01 DD 
FERRARI FORMULA 1 02 DD 
GRAND PRIX UNLIMITED 01 HD 
HARD DRIVING 01 DD 
INDIANAPOLIS 500 02 DD 
LOTUS SPIRIT TURBO 01 HD 
MOON SHINE RACES 03 DD 
MOTO CROSS SUZUKI 250cc 01 HD 
OUT RUN 02 DD 
POLE POSITION II 02 DD 
POWER DRIFT 04 DD 
SIREET ROAD II 01 HD 
STUNTE 01 HD 
STUNT DRIVER 01 HD 
TES" IRIVE HI 01 HD 
THE CYCLES 02 DD 
TURBO QUT RUN 04 HD 
VETTE 01 HD 
WORLD CIRCUIT 03 HD 


1000 ICONES 

AFTER DARK IT 

AFTER DARK II 

BB VIEW 

BIT FAX FOR WINDOWS 
CAKE WALK PRO (SB) 
ENCORE (SB) 

FINALE (SB) 

FONTS FOR WINDOWS & 1 
FONTE POR WINDOWS & 2 
ICCN DO IT 

ICON HEAR IT 

ICONE EDITOR 
KWIKDRAW 

LIGHTNING FOR WINDOWS 
MASTER TRAX PRO (EB) 
MID 2 MOD (SB) 

MIDI COLLECTION 4 1 
MIDI COLLECTION 4 2 
MIDI COLLECTION € 3 
MIDI SCFT STUDIO (58) 
MODPLAY FOR WINDOWS 
MONTAIN FRACTAL 

NI'S FILE FINER 
PASSPORT MUSIC (EB) 
PICTURES ABC 

PKZIP FOR WINDOWS 
SOUND FOR WINDOWS 
THE DRUM 4.0 (EB) 

THE MOON TOOC 
WGOLDIE FOR WINDOWS 
WIN FAX PRO 

WIN MASTER 

WIN WAVES 

WINDOWS UTILIDIES 













PEDIDOS : Por carta ou fone de Seg. a Sex. das 9:00 às 19:00 hs aos Sab. das 9:00 as 15:00 
relacione o Nome e a Quantidade de discos de cada programa. | | 
PAGAMENTO: Envie um cheque nominal a FRANCISCO BELÉM FERREIRA no valor 
de seu pedido, ou faça um deposito em conta no Bradesco Ag. 0302-6CC. 01 24443/4 


Enviando xerox do deposito junto com o pedido, não esquecer de adicionar a taxa de correig 


CASSINOS 
BATTLE CHESS WINDOWS 01 HD 
BATTLE CHESS 4000 08 HD 
CHESS MASTER 3000 01 HD 
CHESS MASTER WINDOWS 01 HD 
EIGHT BALL DE LUXE (VGA) 02 HD 
EPIC PIMBALL II 01 HD 
HOYLE'* S 02 HD 
JIMMY WHITE SNOOKER 01 DD 


MONOPOLE DELUXE FOR WIN.02 HD 


PC POOL CHALLENGE 01 DD 
PIMBALL DREAMS 01 HD 
POKER WINDOWS 01 HD 
RACK -EM 01 DD 
SARGON V 01 HD 
SILVER BALL 01 HD 
TRISTAN 01 HD 
TRUMPH CASTLE II (VGA) os DD 
VEGAS GAMBLER 01 DD 
RACIOCINIO 
CIVILIZATICN 02 HD 
CREEPERS 01 HD 
FES...TRIS NI 03 DD 
J-BIRD 01 DD 
JIG GAW PUZZLE 02 DD 
LEMMING' E 03 DD 
LEMMING'S CHRISTMAS 01 DD 
LEMMING'S - OHINO MORE 01 DD 
MICKEY JIG SAW PUZZLE 01 HD 
POPULOUS 02 DD 
PUSH OVER 01 HD 
SOKOBAN 01 DD 
SUPER TETRIS 01 HD 
X-ROCK 01 HD 


PORNÔ & EROTICO 


BUNNY'S BEACH BALL 01 HD 
CINE PORNO 02 HD 
LADY LOVE 02 HD 
NIKKI 01 HD 
PLAYBOY 02 HD 
PORNO IV 01 DD 
SEXXY 05 DD 
SEX CAPADES 01 HD 
EQUARES 03 DD 
FRER III 01 HD 
SUPER PORNO 01 HD 


- R$ 1,00 
- R$1,50 
- R$2,50 


PROG. INFANTIL 
COMPACTADOR 

S/ PLACA DE SOM 
ED. MUSICAL 
INPORM. LUNAR 
ANIMAÇÃO GRÁFICA 
UTIL. P/ FAX 

ED. GRÁFICO 
MUSICAS &£ SONS 
FERR. P/ WINDOWS 


01 DD 
01 HD 
01 HD 
01 DD 
D1 DD 
01 HD 
02 HD 
02 HD 
01 HD 
01 HD 
01 HD 
01 AD 
01 DD 
01 DD 
02 HD 
01 HD 
01 HD 
01 HD 
01 HD 
01 HD 
01 HD 
01 DD 
01 DD 
01 DD 
02 HD 
01 DD 
01 DD 
91 DD 
01 HD 
01 DD 
1 DD 
01 HD 
03 HD 
03 HD 
01 DD 
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PROG RAM A Criador de Ícones 








Micro: IBM XT/AT 
Memória: 512 Kbytes 
Vídeo: VGA 
Linguagem: QBasic 
Requisitos: Nenhum 


Crie icones com facilidade 








Carlos André Sanches de Souza 
[seia Se pos mir MA io ana O bn P DR EN TE 









CCC BAS | 


DECLARE SUB telai () 

DECLARE SUB botao3 (x1!, y1!, x21, w21) 
DECLARE SUB botao4 (x1l!, y1l!l, x21, vw2!) 
DECLARE SUB botao (x1l, y1ll, x21, w2!, 
palav2$, lcs$) 

DECLARE SUB letra (palavs$) 

SCREEN 12: PAINT (0, 0), 7: DRAW 
“bm50,508s32c0”: CALL letra(“CRIADOR DE 
ICONES”) 

DRAW “sB”: CALL botao(100, 390, 150, 420, 

ml 6/6/6) “ dad | 

DRAW “bLm410,41058”: CALL letra(“FEITO 
POR:”) 

DRAW “bm330,43058”: CALL letra (“CARLOS 
ANDRE SANCHES DE SOUZA”) 

CALL botao3(300, 390, 600, 450) 

DRAW 
“tm200,200c084r60d20r20d30110u20110d30110d1 
0r10d10120u20120d20120u10r10u10110u30110d201 
10u30r20u20br10bd10r10d10110u10br40d10110uU10 
r10bd30d10140u10r40” 

PAINT (201, 201), 6, O: LINE (350, 100)- 
(630, 330), O, B: PAINT (351, 101), 15, 0 
CALL botao3(350, 100, 630, 330) 

FOR £ = 380 TO 530 STEP 10: FOR g = 150 TO 
280 STEP 10 

LINE (f, g)-(£ + 10, g + 10), 0, B 

IF POINT(£ - 225, g + 25) = 6 THEN PAINT 

(LL + 1, 9g+ 1), 0,0 

NEXT g, f: LINE (270, 210)-(420, 190), O 
LINE (290, 230)-(440, 210), O: LINE (270, 
260)- (420, 250), O 

aS = “7”, WHILE a$ = “”"; a$ = INKEYS: WEND: 
aS = “"; CLS 

nm$ = 
“001010AAB00000C200D000E000A000F00010400000G2” 
nm2S$ = 
“G00G0006GG0G000G0G06CG006GG0HHH00010010001 
L0O1000I0I0II00IIIO” 

DIM seta(200), tela(3000), po(33, 33) 

LINE (50, 150)-(80, 180), 15 

LINE (50, 180)-(80, 150), 15 

GET (50, 150)-(80, 180), seta 

LINE (50, 150)-(80, 180), 0, BF 

PAINT (0, 0), 7 

CALL telal 






Este programa pemite a criação de ícones. Ao ser 
executado, aparecerá um gráfico com 32 linhas e 32 colunas 
€ um cursor no primeiro quadrado. Use as setas para mover 
o cursor pelo gráfico e a barra de espaço para marcar um 
ponto. 

Conforme você marca os pontos no gráfico, vai formando 
um desenho no quadrado menor, do lado direito da tela. 

Para trocar de cor, aperte “+” ou “-”. Para ir para o menu 
superior aperte a tecla TAB. As opções são: 















SALVAR - Salva o desenho com a extensão “.CCC”. Esse 
arquivo não é um arquivo de ícone. 








ABRIR - Carrega um arquivo “.CCC”. 







NOVO - Apaga o desenho. 






RISCAR - Enquanto estiver escrito RISCAR, você desenha 
normalmente. Se escolher essa opção, a palavra RISCAR 
mudará para PINTAR, MUDAR ou AUTO: 

PINTAR - Pinta o desenho 

MUDAR - Troca a cor do desenho 

AUTO - Desenha sem pressionar a barra 












RODAR - Gira o desenho em 90 graus. 






CRIAR - Salva o desenho com a extensão “DLL”. Esse 
arquivo é um arquivo de ícone. 









SAIR - Sai do programa. 







Para sair do menu, basta pressionar TAB novamente. 








CARLOS ANDRÉ SANCHES DE SOUZA cursa o primeiro colegial e 
programa em Basic, Clipper e Dbase. 


S4 MICRO SISTEMAS 






INFORMATICA 
NACIONAL 


Quem quer ficar "por dentro” da Além disso a revista Micro 
informática nacional não pode Sistemas é a única publicação que 
deixar de ler Micro Sistemas. tem um espaço dedicado ao 
Sempre atenta aos acontecimentos Shareware e à mídia magnética. 

e tendências, Micro Sistemas é a Publica ainda mensalmente a 
revista que mais reflete o que seção Pesquisa onde os leitores 
acontece no mercado brasileiro. apontam os programas mais 

Feita por brasileiros e para usados dentre jogos, aplicativos e 
brasileiros, Micro Sistemas traz utilitários além das marcas de 


sempre em suas páginas os isquetes mais confiáveis. 
assuntos mais quentes do Por tudo isso você não pode deixar 
momento, programas em diversas de ler Micro Sistemas. Não perca 
linguagens, rotinas, livros, cartas mais tempo! Garanta mensalmente 
doe leitores, etc. o seu exemplar fazendo uma 
assinatura anual de MICRO 


SISTEMAS por apenas: 


1 ANO - R$ 45,00 
2 ANOS - R$ 90,00 


Enter Press Editora Ltda. 


Lourenço Ribeiro, 124-A 


Rio de Janeiro - RJ 
CEP 21050-510 
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ON KEY(10) GOSUB sobre 

KEY(10) ON 

xl = 10: x2 = 9 

LINE (0, 101)-(719, 101), 15: PAINT (0, 
106), 15 

PSET (0, 100), 8 

FOR £ = 120 TO 120 + 32 * x1 STEP x1 
LINE (f, 120)-(£, 120 + 32 + x2), 7 

NEXT £ 

FOR £ = 120 TO 120 + 32 * x2 STEP x2 

LINE (120, £)-(120 + 32 * xl, £), 7 

NEXT £ 
Xx=0:y=0:c=0:pp=0:mixz=ao 
LINE (500, 120)-(535, 155), 1, B 

FOR £ = O TO 15: LINE (£ * 35 + 10, 420)- 
(É * 35 + 45, 460), O, B: PAINT (£ + 35 4 
15, 430), £, O: NEXT 

LINE (500, 200)-(536, 236), 0, B 

cores: 

PUT (c * 35 + 12, 425), seta: LINE (502, 
202)-(534, 234), c, BF 

seta: 

q=Xx: wamy 

LINE (120 + x * x1, 120 + yY * x2)-(120 + 
(x + 1) * x1, 120 + (y + 1) * x2), 0, B 
aS = “”; WHILE aS = “7; a$ = INKEYS$S: WEND 
SELECT CASE aS 


CASE CHR$(0) + “H”:; y = y + (y > 0) 
CASE CHR$(0) + “M”: x = x - (x < 31) 
CASE CHR$(0) + “P”; y = Y - (y < 31) 
| CASE CHR$(0) + “K”: x =x + (x > 0) 


CASE “ “:; IF pp = O THEN LINE (121 + x * 
Xl, 121 + y * x2)-(119 + (x + 1) * x1, 119 
+ (y + 1) * x2), c, BF: PSET (502 + x, 122 
| + Y), C ELSE IF pp = 1 THEN GOSUB pintar 
ELSE IF pp = 2 THEN GOSUB mudar 

CASE CHR$(13): LINE (121 + x * x1, 121 + Y 
* x2)-(119 + (x + 1) * x1, 119 + (y + 1) * 
x2), 15, BF: PSET (502 + x, 122 + y), 15 
CASE “+”: PUT (c * 35 4 12, 425), seta: c 
= €C - (c < 15): GOTO cores 

CASE “-”. PUT (c + 35 4 12, 425), seta: c 
= €C+ (c > 0): GOTO cores 

CASE CHR$(9): GOSUB menu 

END SELECT 

| IF q <> x OR w <> y THEN LINE (120 + q * 
xl, 120 + w* x2)-(120 + (q + 1) * x1, 120 
+ (w + 1) * x2), 7, B: IF PP = 3 THEN LINE 
(121 + x * x1, 121 + yY * x2)-(119 + (x + 
1) * x1, 119 + (y + 1) * x2), c, BF: PSET 
(502 + x, 122 + y), c 

GOTO seta 


| menu: 


m2 = ml: LINE (ml, 35)-(mi + 67, 60), 0, B 
aS = “”"; WHILE ag = “rm, aS = INKEYS$S: WEND 
SELECT CASE ag 

CASE CHR$(0) + “M”: mi =mi- B0 * (mi «< 
520) 

CASE CHR$(0) + “K”: mi = mi + 80% (mi > 
40) 

CASE “ ”“: ON (ml + 40) / 80 GOTO opl, op2, 
OP3, opá, op5, op6, op7 

CASE CHR$(9): LINE (m2, 35)-(m2 + 67, 60), 
7, Bs: RETURN 

END SELECT 

LINE (m2, 35)-(m2 + 67, 60), 7, B 

GOTO menu 

pintar: 

PO = POINT(122 + x * x1, 122 + yY * x2) 

IF po = c THEN RETURN 

IF c <> O AND po <> O THEN cl = 0 ELSE IF 
C= 1 ORDO = 1 THENC1Ãã=Ãã2 ELSE ci z=1 
“LINE (501, 121)-(534, 154), ci, B 

FOR g = 0 TO 31: FOR £ = 0 TO 31 


IF po <> POINT(502 + £, 122 + 9) THEN PSET 


(502 + £, 122 + 9), cl 


NEXT £, g: PAINT (502 + x, 122 + Y), c, ci 
FOR g = 0 TO 31 

FOR £ = 0 TO 31 

IF c = POINT(502 + £, 122 + g) THEN LINE 
(121 + £ * xl, 121 + g * x2)-(119 + (£ + 
1) * xl, 119 + (g + 1) * x2), ec, BF 

NEXT £, g 

FOR g = 0 TO 31 

FOR £f = 0 TO 31 

PSET (502 + £f, 122 + 9), POINT(122 + £ * 


| Xl, 122 + g * x2) 


NEXT £, g 

LINE (501, 121)-(534, 154), 15, B 
RETURN 

mudar: 

Po = POINT(122 + x * x1, 122 + y * x2) 


IFP po = c THEN RETURN 
| FOR g = 0 TO 31 
FOR £f = 0 TO 31 
IP po = POINT(122 + £ * x1, 122 + g * x2) 


| THEN LINE (121 + £ + x1, 121 + g * x2)- 


(119 + (£ + 1) * x1, 119 + (g + 1) * x2), 


| c, BF: PSET (502 + £, 122 + 9), c 
| NEXT £, g 


RETURN 

letras: 

GET (180, 180)-(365, 250), tela 

LINE (180, 180)-(365, 250), 7, BF 
CALL botao(180, 180, 365, 250, “NOME”, 
um” ) 

LINE (200, 200)-(345, 230), 0, BF 
CALL botao4 (200, 200, 345, 230) 


lts$ = ue 
letra: 
as = um 


WHILE a$ = “”"; a$ = INREYS: WEND 

IF ((a$ >= “a” AND a$ <= “z”") OR (aS >= 
“A” AND a$ <= “Z")) AND LEN(1t$) < 8 THEN 
lt$ = 1tS + aS: LOCATE 14, 31: PRINT 1tS 
IF a$ = CHR$(8) AND lt$ <> “” THEN LINE 


| (202, 202)-(343, 228), O, BF: Lt$ = 


LEFT$(lt$, LEN(lt$) - 1): LOCATE 14, 31: 
PRINT ltS 

IF a$ <> CHR$(13) THEN GOTO letra 

PUT (180, 180), tela, PSET 

LINE (m2, 35)-(m2 + 67, 60), 7, B: RETURN 
opl: 

GOSUB letras 

IF 1t$ = “” THEN RETURN 

ttsS = Um 

FOR g = 0 TO 31: FOR £ = 0 TO 31 

tt$ = ttsg + HEXS (POINT(122 + £ * x1, 122 + 
g * x2)) 

NEXT £, g 

OPEN It$ + “.ccc” FOR OUTPUT AS EI 


| PRINT &l1, ttsg 


CLOSE 
RETURN 


| op2: 


GOSUB letras 

IF 1t$ = “” PHEN RETURN 

tts - “em 

OPEN 1t$ + “.ccc” FOR INPUT AS &1 

INPUT fl, tts 

CLOSE 

h = 0 

FOR g = 0 TO 31 

FOR £ = 0 TO 31 

h=h+1 

tt = VAL(“&H” + MIDS(ttS, h, 1)) 

LINE (121 + £f * x1, 121 + g * x2)-(119 + 
(É + 1) * x1, 119 + (g + 1) * x2), tt, BF: 
PSET (502 + £, 122 + 9), tt 

NEXT £f, g 


| RETURN 


Oop3: 
MICRO SISTEMAS 








MICRO 





ESTA 
NA 
REDE 


Então, o que você esta 
esperando para "se 
ligar" nesta idéia? 
Contacte o seu BBS 
preferido e verifique se 
ele é filiado a RBT e se 
já abriu a conferência 
Micro Sistemas. 

Depois é só curtir e se 
divertir. 























SISTEMAS 














MS agora é a revista 
oficial da rede brasileira 
de teleinformática - RBT. 
São 180 BBS em todo o 
Brasil - do Oiapoque ao 
Chuí. 

Nos BBS filiados a RBT 
você encontra uma con- 
ferência dedicada exclu- 
sivamente aos leitores da 
MS, com promoções, con- 
cursos, programas fonte, 
BBS do mês, etc. 

Além disso, você entra em 
contato direto com as 
feras que fazem a revista. 
O time todo participa 
deste projeto: Clóvis 
Duarte, José Geraldo, 
Magno Filho e Bob Pixel. 
A coordenação da con- 
ferência, é Tfeita pelo 
próprio editor geral da 
revista: Renato Degiovani 





LINE (120, 120)-(440, 408), 15, BF 
FOR £f = 120 TO 120 + 32 * x1 STEP x1 
LINE (f, 120)-(f, 120 + 32 * x2), 7 
NEXT £ 
FOR f = 120 TO 120 + 32 * x2 STEP x2 
LINE (120, f)-(120 + 32 * x1, £), 7 
NEXT f 
LINE (502, 122)-(534, 154), 15, BF 
LINE (m2, 35)-(m2 + 67, 60), 7, B: RETURN 
opá: 
LINE (m2, 35)-(m2 + 67, 60), 7, BF 
DRAW “bm290,52c098B” 
IF pp = O THEN CALL letra(“PINTAR”): PP =. 
À ELSE IF pp = 1 THEN CALL letra (“MUDAR”): 
PP = 2 ELSE IF pp = 2 AND jj = O THEN CALL 
letra (“AUTO”): pp = 3 ELSE CALL 
letra (“RISCAR”): pp = 0 
DRAW “56” 
GOTO menu 
op5: 
FOR g = 0 TO 31 
FOR £ = 0 TO 31 
LINE (121 + £ * x1, 121 + g * x2)-(119 + 
(£ + 1) * x1, 119 + (g + 1) * x2), 
| POINT(533 - g, 122 + £), BF 
NEXT £, g 
FOR g = 0 TO 31 
FOR £ = 0 TO 31 
PSET (502 + £, 122 + 9), POINT(122 + £ * 
xl, 122 + g * x2) 
NEXT £, g 
GOTO menu 
op6: 
IP 1t$ = “” THEN GOSUB letras 
IF 1t$ = “” THEN RETURN 
tts = “Mm 
FOR £f = 1 TO LEN(nm$) 
SELECT CASE MIDS (nm$, £, 1) 


CASE “0”: tt$ = tt$ + CHR$(0) 
CASE “17; tt$ = tt$ + CHR$(1) 
CASE “2”: tt$ = tt$ + CHR$(2) 
CASE “4”: tt$ = tt$ + CHR$(4) 
CASE “A”; tt$ = tt$ + CHR$(32) 
CASE “B”; tt$ = ttS$ + CHR$(16) 
CASE “C”: tt$ = tt$ + CHR$(232) 
CASE “D”: tt$ = tt$ + CHR$(22) 
CASE “E”: tt$ = tt$ + CHR$(40) 
CASE “FP”: tt$ = tt$ + CHR$(64) 
CASE “G”: tt$ = tt$ + CHR$(128) 
END SELECT 

NEXT 

FOR £ À TO 24: tt$ = tt$ + CHR$(0): NEXT 


FOR £ = 1 TO LEN(nm2$) 

SELECT CASE MID$ (nm2$, f, 1) 
CASE “0”: tt$ = tt$ + CHRS$(0) 
CASE “GQ”: tt$ a tt$ + CHR$(128) 
CASE “H”: tt$ = tt$ + CHR$(192) 
CASE “1”: tt$ = ttsS + CHR$(255) 
END SELECT 

NEXT 

FOR gq = 31 TO O STEP -1 

POR £ = 0 TO 31 STEP 2 

tt2g = *” 

h = 0 

“Linha: 

SELECT CASE POINT(122 + (£ + h) * x1, 122 
+ g * x2) 


CASE O: tt2$ = tt2$ + “0” 
CASE 1: tt2$ = tt2s + “4” 
CASE 2: tt2$ = tt2g + “92” 
CASE 3: tt2$ = tt2g + “6” 
CASE 4: tt2$ = tt2$ + “7” 
CASE 5: tt2g$ = tt2g + “5” 
CASE 6: tt2$ a tt2g + “37 
CASE 7: tt2g$ = tt2sg + “8” 
CASE 8: tt2g$ = tt2g$ + “7” 
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CASE 9: tt2$ = tt2$ + “Cc” 


CASE 10: tt2$ = tt2$ + “a” 
CASE 11: tt2$ = tt2S + “E” 
CASE 12: tt2$ = tt2g + “9” 
CASE 13: tt2$ = tt2S + “D” 
CASE 14: tt2$ = tt2s + “B” 
CASE 15: tt2$ = tt2g + “Pp” 


END SELECT 

IF LEN(tt2$) = 1 THEN h = 1: GOTO linha 
tt$ = tts + CHRS$S (VAL (“&H” + tt2$)) 

NEXT £, g 

FOR £f = 1 TO 128: ttsg = ttS + CHRS$(0): 
NEXT 

OPEN 1t$ + “.dll” FOR OUTPUT AS &1 

PRINT H1, ttsg 

CLOSE 

LINE (m2, 35)-(m2 + 67, 60), 7, B: RETURN 
RETURN 

op7: 

CLS 

END 

sobre: 

GET (150, 180)-(385, 250), tela 

LINE (150, 180)-(385, 250), 7, BF 

CALL botao3(150, 180, 385, 250) 

DRAW 
“g8bLm230,200nr2u5r2br2nr2d5r2br2nr2us5r 
2bd5br3nulbr3u5r2digifid2nli2b 
r2u5r2d2nl2d3br2r2u312u2r2” 

DRAW 
“bmn220,210difidifindielulelulbr2nr2d2nr2d3r2 
br2u5r2d212f3br2r2u312u2r2br2nd5r2d2n12d3br2 
u5r2d5nl2br5u5ng2br2bd5Snulbr2uSr2d5Sl2ulelulelul” 
DRAW 
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5r2d2n12d3” 
SLEEP | 
PUT (150, 180), tela, PSET 
RETURN 


SUB botao (xl, yl, x2, y2, palav2$, 1c$) 
LINE (x1,. yl)-(x2, vy2), 7, BF 

LINE (x2, y1l)-(x1, y1), 15 

LINE -(x1l, v2), 15 

LINE (xl + 1, y2)-(x2, y2), 8 

LINE -(x2, y1), 8 

LINE (x2 - 1, yl + 1)-(x1 + 1, y1 + 1), 15 
LINE -(x1l + 1, y2 - 1), 15 

LINE (xl + 2, vy2 - 1)-(x2 - 1, v2 - 1), 8 
LINE -(x2 - 1, y1 + 1), 8 

IF INSTR(lc$, “L”) <> 0 OR INSTR(lc$, “1”) 
<> O THEN x3 = x1 + 5: GOTO olai 

IF INSTR(lc$, “R”) <> 0 OR INSTR(lc$, “r”) 
<> O THEN x3 = x2 - LEN(palav2$) * 4 - 5: 
GOTO olai 

Xx3 = INT((xl + (x2 - x1) / 2) - 
(LEN(palav2$) / 2) * 4) 

olal: 

IF INSTR(lc$, “U”) <> 0 OR INSTR(lc$, “u”) 
<> O THEN y3 = y1i + 10: GOTO aloi 

IF INSTR(lc$, “D”) <> 0 OR INSTR(lc$, “d”) 
<> O THEN y3 = y2 - 5: GOTO aloi 

Y3 = INT((y1l + (y2 - y1) / 2) + 2.5) 

alol: 

cr = 0 

FOR £f = 1 TO 15 

f£S = RIGHTS (STR$(£), LEN(STR$(£)) - 1) 

IF INSTR(lc$, ff$) <> O THEN cr = £ 

NEXT 


DRAW “bm” + STR$(x3) + “,” + STR$(y3) + 
“Cc” + STR$(cr) 


“o 


a 











NACIONAL 


Quem quer ficar "por dentro” da . 
informática nacional não pode 
deixar de ler Micro Sistemas. 
Sempre atenta aos acontecimentos 
e tendências, Micro Sistemas é a 
revista que mais reflete o que 
acontece no mercado brasileiro. 
Feita por brasileiros e para 
brasileiros, Micro Sistemas traz 
sempre em suas páginas os 
assuntos mais quentes do 
momento, programas em diversas 
linguagens, rotinas, livros, cartas 
doe leitores, etc. 


opera 


siste 


Enter Press Editora Ltda. 


Lourenço Ribeiro, 124-A 
Rio de Janeiro - RJ 
CEP 21050-510 











Além disso a revista Micro 
Sistemas é a única publicação que 
tem um espaço dedicado ao 
Shareware e à mídia magnética. 
Publica ainda mensalmente a 
seção Pesquisa onde os leitores 
apontam os programas mais 
usados dentre jogos, aplicativos e 
utilitários além das marcas de 
disquetes mais confiáveis. 

Por tudo isso você não pode deixar 
de ler Micro Sistemas. Não perca 
mais tempo! Garanta mensalmente 
o seu exemplar fazendo uma 
assinatura anual de MICRO 
SISTEMAS por apenas: 


1 ANO - R$ 45,00 
2 ANOS - R$ 90,00 
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CALL letra (palav2$) 
END SUB 


SUB botao3 (xl, y1, x2, y2) 

LINE (x2, vy1)-(x1, y1l), 15 

LINE -(x1, v2), 15 

LINE (xl + 1, y2)-(x2, vy2), 8 
LINE -(x2, vl), & 

LINE (x2 - 1, yl + 1)-(x1 + 1, y1 
15 

LINE -(xl + 1, y2 - 1), 15 

LINE (xl + 2, y2 - 1)-(x2 - 1, y2 
LINE -(x2 - 1, vyl + 1), 8 

END SUB 


SUB botaoá (x1, y1l, x2, y2) 
LINE (x2, y1l)-(x1l, vi), 8 
LINE -(x1, y2), 8 

LINE (xl, y2)-(x2, y2), 15 
LINE -(x2, yl), 15 

LINE (x2 - 1, vyl + 1)-(x1 + 1, 
LINE -(xl + 1, y2 - 1), 8 
LINE (xl + 2, vy2 - 1)-(x2 - 1, 
15 

LINE -(x2 - 1, vy1l + 1), 15 
END SUB 


SUB letra (palavs$) 

FOR £f = 1 TO LEN(palav$) 
letras$ = MID$(palav$s, f, 1) 
IF letrasS$ = “A” THEN DRAW 


“uSr2d2ni2d3br2” 

IF letrasS$ = “PB” THEN DRAW 
“u5Sr2dlginlifid2nl2br2” 

IF letras$ = “C” THEN DRAW 
“nr2u5r2br2bd5” 

IF letrasS$ = “D” THEN DRAW 
“uSrifid3Igilibr4a” 

IF letrasS$ = “E” THEN DRAW 
“ubnr2d2nr2d3r2br2” 

IF letrasS = “FPF” THEN DRAW 
“uôSnr2d2nr2d3br4” 

IF letrasS$ = “G” THEN DRAW 
“uv5nr3d5r3u3nlibf2bd1” 

IF letras$ = “H” THEN DRAW 
“uv5Sd2r2nu2d3br2a” 

IF letrassS “1” THEN DRAW “brinusbr2” 

IF letrass$ “J” THEN DRAW “nu2r2nubbr2” 
IF letrass$S “KR” THEN DRAW “u5Sd2ne2f3br2” 
IF letrass “L” THEN DRAW “nu5r2br2” 

IF letrass “M” THEN DRAW “u5f2e2d5br2” 
IF letrass “N” THEN DRAW “u5Sf3nu3d2br2” 
IF letrass$ “O” THEN DRAW “ubr2d5nl2br2” 
IF letras$ “Pp” THEN 

“u5r2d2nl2bd3br2” 

IF letrasS$ = “Q” THEN 
“u5r2d5nl2nhinfibr2” 

IF letrasS = “R” THEN 

“ubr2d212f3br2” 

IF letras$ = “S” THEN 

“r2u312u2r2bd5br2” 


LIVRARIA 
CIÊNCIA NOVA 














* DISQUETES 
* FORMULÁRIOS 
e ETIQUETAS 





e CAPAS 


o EXCLUSIVAMENTE LIVROS DE INFORMÁTICA | Rs De E ia 
* LIVROS E REVISTAS IMPORTADAS DS RR mia 


º COMPLETA LINHA DE SUPRIMENT Os: 


e PORTA-DISQUETES 


IF letras$ = “7” THEN DRAW 
“briuôbnrinlibd5br3” 

IF letrasS$ = “U” THEN DRAW “nuSr2nusSbr2” 
IF letrasS$ = “V” THEN DRAW 
“bubdifidifindielulelulbd5Sbr2” 

IF letrasS$ = “W” THEN DRAW 
“nu5Se2f2nubsbr2” 

IF letras$ = “X” THEN DRAW 
“uZeZ2ulbl2dif2d2br2” 

IF letrasS$ = “Y” THEN DRAW 
“br2u3nh2e2br2bd5” 

IF letrasS = “Z” THEN DRAW 
“nr2uleluleluini2bd5br2” 

IF letrass$ “ “ THEN DRAW “br5” 
IF letrassS “0” THEN DRAW “u5r2d5nl2br2” 
IF letrass “41” THEN DRAW “buje2d5br2” 
IF letrass “2” THEN DRAW 
“bu5r2dig2d2r2br2” 

IF letras$ = “3” THEN DRAW 
“bu5r2d2nl2d3nl2br2” 

IF letras$ = “4” THEN DRAW 
“bu5Sd2r2nu2d3br2” 

IF letrasS = “5” THEN DRAW 
“busnr2d2rifidigilibr4a” 

IF letrasS$ = “6” THEN DRAW 
“buônr2d5r2u3nl2br2bd3” 

IF letrasS$ = “7” THEN DRAW 
“bubr2digidigidibr4a” 

IF letrasS = “8” THEN DRAW 
“u5r2d2ni2d3nl2br2” 

IF letrasS = “9” THEN DRAW 
“buju2r2d2nl2d3nl2br2” 

IF letrasS$ = “(“ THEN DRAW 
“bubbr2g2dlf2br2” 

IF letrasS$ = “)” THEN DRAW “bu5f2dig2br4” 
IF letrasS$ = “+” THEN DRAW 
“bu3r2nu2nd2r2br2bd3” 

IF letrasS = “-” THEN DRAW “bu3r2br2bd3” 
IF letras$ = “:” THEN DRAW 
“buinr0bu2nr0bd3br2” 

IF letrasS$ = “.” THEN DRAW “brinulbr3” 
IP letrasS = “2?” THEN DRAW 
“bud4ulr2d211dibd2r0br3” 


CALL botao3(0, O, 639, 100) 

DRAW “bm230, 140058” 

CALL letra(“CRIADOR DE ICONES”) 
FOR £f = 35 PO 565 STEP 80 

CALL botao3(f, 20, £ + 79, 80) 
NEXT 

DRAW “bm46,52c0” 

CALL letra (“SALVAR ABRIR NOVO 
RISCAR RODAR CRIAR SAIR”) 
DRAW “s6” 

END SUB 








- EST. ABILIZADOR 
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E Despachamos p/todo '9) Brasil 
E Remessas feitas por reemboiso FP OStal 















Av. Presidente Vargas, 5 5424901 am Tél. (021) 2334045 





A 

Dê uma chance ao sucesso MICro 
Sistemas 

Onde está aquele super-fantástico-incrível programa que você fêz? E aquela rotina maravilhosa? Estão 

guardados numa gaveta? Ninguém, além de você, conhece esse trabalho? 

Não perca a oportunidade de mostrar o quanto você sabe sobre informática, programação, linguagens, 

processadores, etc. 

A revista Micro Sistemas é a única publicação nacional que abre espaço para trabalho feitos no Brasil. Ela 

é o único veículo editorial que publica colaborações dos seus leitores. 

Esta é a principal razão do sucesso imbatível da revista, afinal, grande parte dos profissionais com projeção 

nacional neste mercado, foram ou ainda são colaboradores da Micro Sistemas. 

Então, o que você está esperando para fazer parte deste time? 


COLABORAÇÕES: 

Você pode mandar qualquer tipo de matéria (programas, artigos, crônicas, etc). Para que seu trabalho seja 
avaliado por nossa equipe é imprescindível que: 

- Os textos, listagens, ilustrações, desenhos, etc venham em disquete 5 1/4 padrão IBM PC, 

- Os programas devem incluir a versão compilada e exemplos (se for o caso); 

- cópia impressa do texto e das listagens; 

- autorização impressa e assinada, para a publicação do material; 

currículo do autor. | 

- Envie p/ Enter Press Editora S/A - Rua Lourenço Ribeiro, 124-A - CEP 21050-510 - Rio de J aneiro - RJ 





O material enviado para a revista não será devolvido. Os autores das matérias publicadas 
receberão uma assinatura anual de Micro Sistemas. 


D'S:: Multimídia CD'S 
Classic Soft 


RUA JOAO CORDEIRO. 495 - FREGUESIA DO O - SÃO PAULO - CAPITAL - CEP 02960-000 








TÍTULOS DIVERSOS 


50 AWARD WINNNIG GAMES 
ALONE IN THE DARK 

AMERICAN SHAREWARE 

BEST OF VIVID (PORNÔ) 

CHESS MASTER 3000 

CHESS MASTER 4000 

CICA 2000 PROGRAMAS WIN- 
DOWS 

DAY OF TENTACLE 

DR. FONTS (2000 Fontes True Type) 
DR. CLIP ART (Clip Art) 

DRACULA 

EXTRAVAGANZA (4 CD's Shareware) 
EYE OF BEHOLDER 

F-15 STRIKE EAGLE 3 

FANCY FONTS 

GABRIEL KNIGHT 

GIRLS DOIN GIRLS 

INCA 1 E INCA 2 

E MUITO MAIS!!!!!!! 


PROMOÇÕES CD's 

MEGA RACE R$ 37,00 
MAD DOG McCrEF R$ 37,00 
MAD DOG 2 R$ 67,50 
STRIP POKER R$ 31,00 
THE LAWNMOWER R$ 42,00 
TEN PACK (10 CD'S) R$ 69,00 
BLACK STONE/WOLF 3D R$ 27,00 
COLORING BOOK R$ 19,80 
STAR WARS CHESS R$ 31,00 
MYST R$ 95,00 
REBEL ASSAULT R$ 51,00 
7TH GUEST R$ 46,20 
SEX VIVID (PORNÔ) R$ 34,00 
RAQUEL RELEASE R$ 49,50 
THE ANIMALS R$ 26,00 
MIDI MUSIC SHOP R$ 24,50 
MASK (PORNÔ) R$ 32,50 
IRON HELIX R$ 39,50 
JUST GRANDMA AND ME R$ 33,00 
KYRANDIA R$ 57,00 


DIVERSOS 
e PLACAS DE SOM 


e CD ROM 
e KITS MULTIMIDIA 


FAÇA O SEU PEDIDO: 


1- Por telefone, fazendo de- 
pósito bancário BRADESCO: 
Ag.117-1 CC: 98741-7 ou 
UNIBANCO: Ag. 137 CC: 
113444-4 em nome de CLAS- 
SIC SOFT LTDA. Ou envie 
chequenominal no valor doseu 


pedido. 
Adicionar R$ 2,80 de taxa de 
correio na compra de cada CD. 


ATENDEMOS TODO 
BRASIL!! 






















Se Aqui está outro módulo para 
E a =s construção de paredes, só que 
o tijolo deste é bem menor do 





Ea 


o DPF - Que o da edição anterior. Vale 
ES ] a nu E a a a LM 

semcagatemcopajaesommpadiciciora lembrar que esses módulos 
E Seo 2 8.888 oncbiiS gráficos possuem 32x32 pix- 


Et eis dtta Ea els. Na próxima edição vou 


PE SE O mandar um módulo para 

Pega a pa construir cercas de tábuas, aí 

Core a vocês vão vercom quantos paus 
App poa E se faz uma parede... 

O Carlos Alfredo, de Maceió, escreveu perguntando 
como usar as animações publicadas nesta seção. É fácil 
Carlinhos: primeiro você pega um editor gráfico para Bitmaps 
(coisas como Corel Draw, nem pensar). Tem um monte 
deles no mercado, inclusive em versões Shareware. 

Aí você, em modo Zoom - que é de lei em todos os 
editores gráficos, vai “digitando” os pixeis um a um, como 
estão nas figuras. Depois é só gravar cada uma das figuras 
de modo que, ao sobrepor uma na outra, produza a ilusão 
de movimento. Essa sobreposição pode ser feita em 


programação, usando Basic, Pascal, C, Assembler, ou outra 
coisa semelhante. 

Às vezes o próprio editor gráfico possui recursos para se 
montar animações, slide show, presentations, etc. Você tem 
que procurar aquele que se adapta melhor ao seu estilo de 
criação. Garimpar programas deste tipo é também um modo 
de se conhecer novos produtos e novas técnicas. 

O Paulo Roberto, de Catanduva, mandou uma carta 
dizendo que está adorando os bitmaps que a gente publica 
e que vai mandar uns que ele fez, para serem publicados. 
Pode mandar Paulo que, tendo espaço aqui, agente divulga. 

O João Carlos, de Ribeirão Preto, pede para voltar os 
efeitos gráficos e análises de programas gráficos. Anotamos 
suas sugestões João e vamos procurar atendê-lo o mais 
breve possível, mas lembre-se o espaço aqui é limitado e os 
recursos também. Aqui não dá para fazer animação, nem 
usarcores. Foi justamente para isso que agente criou o disco 
Bitmap for VGA. Lá tem um montão de efeitos especiais, 
animações, truques e técnicas e, é claro, bitmaps. 


Bob Pixel 





ANIMAÇÃO 


Cansado de ver figuras esquisitas por aqui? Então lá 
vai mais uma delas: uma espécie de capacete 
ambulante. Ele é meio esquisito, mas garanto que 
quando você colocá-lo para “andar” vai achar o máximo. 


e Bs 
do Ch 





EB 





Ele é pequeno e fácil de montar, mas o efeito é 
arrasador. 

O pessoal que escreve para cá tem pedido alguns 
efeitos. Vou pesquisar nos meus discos e ver se 
encontro uns tiros, explosões, blumps, pows, etc, etc, 
etc. Aguardem, neste mesmo bat-espaço. 


. 






































E ER 
































a 


MICRO SISTEMAS 


++ mao +44 + 








UUSCSSSaGGUITAS 
ss: 





= 
Fr 
ii 


E, “pa; 7 
“E ii 
“ RT 





MICRO SISTEMAS 


MEIA MOS mera piv ro Mttp PM 


RR To 


natos em 


a 


ea ita ta 


cetro a 


SAPATO gti 


CARTAS 


sosÉD 


Olã pessoal da Micro 

Sistemas! Venho para 
benizálos pelo excelente tra 
balho com a revista. Mandei 
esta carta para a MS por que 
tenho umagrande dúvidae queria 
que vocês me ajudasse: comprei 
um software hã pouco tempo, o 
MS - C/C++ v7.0, e comprei 
também um livro chamado 
“Salvo pelo C++ de Kris jamsa. 
O problema é que o livro explica 
como fazer programas em C/ 
C++, mas na compilação ele o 
explica com o Borland C e aí eu 
não consigo compilar. Com o 
MS C/C++ veio um editor espe- 
cial paraisso mas mesmo assim 
eu não consigo compilar nada. 
Por isso peço ajuda da MS e dos 
leitores em geral para que me 
explique como compilar e linkar 
programas em MS C/C++ 
utilizando o MS C/C++ ou até 
mesmo outro editor. 
Rafael Simas Garcia 
R. Antonio Muzzi Sobrinho, 15 


Central 










Centro - Franco da Rocha 


SP - CEP 07789-000 

4 Possuo um 386 DX 40, 
Poa com 8 Megas, um moni 
tor VGA color e uma impressora 
Lazer, e comprei, recentemente, 
um Kit Mult Midia, estou 
entrando de sócio em uma 
locadora de CD-ROM. Gostaria 
de saber alguns dos melhores 
jogos existentes. 

Se possível gostaria que alguêm 
me enviasse nome de jogos e de 
quetipoele é. Soumuitochegado 
a jogos de lutas, corridas e 
espaciais. 

Marcelo C. Z. 

Rua Alm. Calheiros da Graça, 68 
Méier - Rio de Janeiro - RJ 





CLUBE DE 


USUÁRIO /D 


Através desta, in- 
formamos que nosso 
Info Ação Clube, não pode dar 
continuidade asuas tarefas. Pois 
os fundadores estão muito ata- 


CENTRAL SOFT INFORMÁTICA LTDA 


RUA BARÃO DE ITAPETININGA, 88 CONJ.707-CEP:01042-000-SP-SP 
TEL.:(011)256-2544/FAX:(011)259-8490/BBS:(011)871-2859 


AGORA. TAMB 





M EM CD 


refados com seus empregos e 
estudos. E por este motivo 
termina suas ativiades. 
Sentimos muito por tal fato, e 
agradecemos por sua compre- 
ensão desde já. 

Como o clube foi iniciado há 
pouco tempo não foi utilizado 
nenhum valor recebido, sendo o 
mesmo desolvido aos propri- 
etários. 

Info Açao Clube 

R. Paulo Cezar Erthal, 11 

Itaocara - RJ - CEP: 28570-000 


Levamos ao vosso co- 

nhecimento, da funda 
ção do Micro Clube PC, que tem 
por objetivo difundir, trocar e 
ampliar os conhecimentos de 
informática, em especial a da 
família PC. Os participantes do 
clube tem acesso gratuito a 
acervo aproximadamente de 5 
Gigabytes em softwares de 
inúmeros generos, além de um 
jornalzinho distribuido 
mensalmente aos associados, 
para maiores informações 
contactar: 










Micro Clube PC - MCP 
R. Rui Moaris Apoc,312 Bl23 - 72 
São Paulo - SP - 02842-260 


— Ms AGRADECE 


Souleitor/ assinante da 

Micro Sistemas há mais 
de 10 anos e gostaria de enviar 
congratulações pela revista 
pedindo que sempre que 
possível haja divulgação das 
possibilidades das BBS”s e 
alem disto, uma maior dinâmica 
acerca do maravilhoso 0S/2 
Caruaru - Pemanbuco 





Se você possui MODEM 
se ligue na 


* Acessso a InterNet 

* 04 CD-ROM c/ milhares 
de softwares 

* Cadastramento ON LINE 

* 14.400 BPS 

* Horário 24 horas 


* Novo telefone 
(011) 871-2859 


TH Guest - Explore uma mansão mal assombrada em 3D 
Chess Maniac - Xadres em 3D. Dez níveis de xadres 
Commanche - Simulador de helicopteros. 100 missões 
Rebel Assault - Aventura com efeitos incriveis 


Indiana jones/Atlantis - Aventura com o herói 


IM UITTO INLA ISS 

Enciclopédias, CAD, Windows, Musicas | 
PROGRAMAS ESPECIAIS PARA ADULTOS 

CONSULTE PREÇOS | 

Aceitamos Visa, Credcard, Dinner's Club 





























Caro Amigo Cliente 


Deixamos de apresentar neste mês o nosso Catálogo. 
Para você fazer seu pedido, basta consultar as 
edições anteriores de Micro Sistemas. Se preferir, 
nos mande um disquete HD ou R$ 1,50 para que possamos 
remeter o nosso Catálogo atualizado, além de contar, como 
sempre, com o nosso atendimento de 1º Classe. 











Gratos. 








Se seu 
problema é a 
portabilidade 
de programas 
executáveis e 
arquivos de 


STANDARD MUNDIAL 

— 255 chaves de acesso direto 

— Criação de Pop-up Windows 

— Leitura “Up & Down” de arquivos 

— Estrutura Client-Sever LAN e RDBMS 
— Mais de 2.000.000 Sistemas em uso 


RM/PANELS 
Gerador Automático de Telas 
Sistema WYS/NWYG 


RM/COMPANION 

Gerador Automático de Relatórios 
— Gera Programa Fonte 

— Gera Querys ao Usuário Final 


RM/GRAPHS 

Gera Gráficos de negócios 

— 2D/3D 

— Definição Automática de Cores 


RM/CO« 
Ambiente de Desenvolvimento, com editor Janela múltipla 
e Desenho Animado 


RM/TOOLKIT 
Família de Utilitários 
— Mouse, Modem, Sistema Operacional, etc. 


RM/plusDB 
Interface Transparente com Banco de Dados Relacionais 
— Informix*, Oracle*, Progress*, etc. 


Mantém o Padrão dos Sistemas Abertos reduzindo seus 
tempos de programação em 80% 


DESENVOLVIMENTO DE APLICAÇÕES 


Quando você precisade ferramentas para o desenvolvimento 
de aplicações superiores ao mercado, capacidade & 
funcionalidade & solução do RDBMS & superior a 4GE RM/ 
COBOL & TOOL'S são incomparáveis. 


Ferramentas de Desenvolvimento & Superfícies de Trabalho 
O RM/Cobol possui um poderoso de ferramentas integradas 
para definir e construir aplicações tais como: Menus Ring- 
Style, Pop-Down & Pull-Down, e ainda Dialog Boxes, Forms 
e Objetos para desenvolvimento de Aplicações RM/Cobol, 
oferece maior capacidade e flexibilidade para o 





dados. E DRA o pecado no iba acho usa 


É o único caminho! 


desenvolvimento, reduzindo o tempo de manutenção e 
possibilitando uma consistente interface com o usuário. 
Superfícies de Trabalho são interfaces funcionais que 
permitem definir regras de integridade e de negócios. 
Somente o RM/Cobol possui um desenho de interface 
altamente visual e amigável, possibilitando uma fantástica 
melhoria na produtividade do desenvolvimento de telas, 
estando bem acima dos métodos de códigos convecionais. 
O Help on line está sempre presente para consulta. 


Dicionário de Dados 

O Dicionário de Dados do RM/Cobol é um repositário 
central para definir toda e qualquer informação usada na 
tela como: Borda, Lay-Out, Cores, Formato dos campos, 
Valiações Lógicas, Help on line, Mensagens de Ajuda e 
Erro, Prompt de cores campo a campo, e mais. Desta forma 
você ganha um controle de integridade de dados altamente 
eficiente, com vantagem adicional de uma reduzida 
codificação. 


Abertura para outros amblentes 

O RM/Cobol pode acessar outros Bancos de Dados como: 
INFROMIX, ORACLE e no final deste ano PROGRESS, 
INGRESS, pode acesar outras linguagens, através de 
“CALL” nas subrotinas. O “APLICATION PROGRAM INTER- 
FACE” permite criar subrotinas novas funções escritas em 
“C" eAssembler, o que possibilita inclusive acesso a outras 
bases de dados. 





AVDE ir 


Representante para Brasil, Argentina, Paragual e Urugual 


ENDEREÇO NO BRASIL 

Av. BRIG. FARIA LIMA, 613 - 8º ANDAR CJ 84 
01451-000 - SÃO PAULO - SP 

TEL/FAX: (011) 829-/891 


ENDEREÇO NA ARGENTINA 

Av. CORRIENTES, 821 - 6º ANDAR (1043) 
BUENOS AIRES 

TEL.: (541) 448-9426/7/8 - FAX: (541) 322-5240 


en ei ade e depor size eat at et A -. gica crs DE Puros ig pes Sa E Ena api Capeçpi ira gr óro gi = . as pamçego 
AA TP meme vei, r apto cortes eram rare, MESA INOMERIILA UR CRM NR ES Ja Mt 0d TA CPO OPS Da a PANE 2 A EO RA O O SE DSP Ro COPA e a a aca Da ç me ron Mt. am estes raca 








PESQUISA MS 


SUA OPINIÃO VALE DUAS ASSINATURAS 












Você dã a sua opinião sobre os melhores programas de computador | ITEMS... 
do mercado e concorre automaticamente a duas assinaturas anuais da | NOMESLeM SL... 
primeira revista brasileira de microcomputadores. | NTUNS eee 


CAD/EDITOR3D | | 8 terrenas 











PROCESSADOR DE TEXTO | SISTEMA OPERACIONAL 







3D Studio ee. 20/240 || SS eeeeeeeeereerereremero 
Professional Cad ..... Do. | [sf aaass 
Microstation ............ 0/40. || ereeereermeerererarame 
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“Maxel.... 200/2070 Nashua.... 
Verbatin ... 70/620 Verbatin... 90/620 | | CÍCIOS ....ceereseeees 
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SEGOPDAGUORNOA 
eecare 
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Responda às questões de acordo com a sua preferência. Processador de texto: 
No caso de usar mais de um programa de mesma classe, Planilha eletrônica: 





escolha apenas aquele que julga ser o mais adequado para Linguagem de programação: 
o seu uso. Não importa a origem do software. Escreva de Utilitários: 


forma clara e legível o nome do programa. Remeta para SistemaOperacional Dn 
ENTER PRESS Editora Ltda - Rua Washington Luis, 9 / 402 Antivírus: 






































- Rio de Janeiro/RJ - CEP 20230-900 Compactador: 
Nome: Editor Gráfico: 
Endereço: Desktop Publishing: 
Cidade: UF: Cad/editores 3D: 
CEP: Vídeo: Jogo 1: 

Jogo 2: 














ASSINATURA ANUAL y Outro: 
Antônio José Braga Nóbua - Terezópolis - RJ Melhor disquete: 
Gitdiny Moura Barbora - Terezinha - PI Pior disquete: 














66 MICRO SISTEMAS 
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O sistema de BBS mais avançado do planeta, agora no Brasil para você ! 


Esqueça tudo o que você já viu sobre BBS, e conheça o 
FuliCconnaction, um sistema de BBS super avançado uti- 
lizando o protocolo gráfico de 4º geração RiPscrip, que 
além de melhorar a velocidade de transmissão, permite a 
visualização de gráficos com alta-resolução no estilo do 
Prodigy e América Online. Você não precisa mais decorar 
nenhum comando, apenas clicar com seu mouse. 





grande variedade de programas demos e shareware nas 
mais variadas categorias, Jogos, Utilitários, Fontes, Anti- 
Virus, Editores, Desktop, Educação, Multimídia, 
Comunicação, Programação, Arquivos de Som, e tudo o 
" que você imaginar para DOS e WINDOWS. Também uma 
ampla Biblioteca de Imagens Digitalizadas, dos mais 
diversos assuntos, inclusive fotos XXX-Rated. 


Eua completa Biblioteca de Arquivos contendo uma 


E Um avançado sistema de Correio Eletrônico (E-mail), com 
suporte para envio de Arquivos Anexados, Cópias 
Carbono, Listas de Distribuição, Aviso de Recebimento, 

- Editor de Texto Full Screen com todos os comandos no 
seu vídeo através de botões. Teleconferências Online 

E para você bater papo com outros usuário, expandindo seu 

— conhecimento e ampliando o seu relacionamento com 
pessoas que tenham o mesmo interesse. 


O SHOPPING OnLine, onde você pode adquirir produtos 
e serviços dos mais variados tipos com descontos, sem 
precisar sair da sua casa ou do seu escritório. Através do 

- seu próprio computador, você faz a cotação de preços, 
escolhe onde deseja comprar, a forma de pagamento e 
o método de entrega. Você recebe o produto rapidamente 
no seu endereço, sem burocracia, filas e com toda a 
comodidade. 


ma 





Rodando 

The Major BBS, o 
gerenciador de BBS 
mais avançado do 
planeta. 


RPE se rr9qua 


«. COM uma interface 
totalmente gráfica, com 
suporte para mouse, 
facilitando o seu acesso 
sem a necessidade de 
decorar comandos 
complicados. 
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... Biblioteca de Arquivos 
de fácil utilização, com 


pesquisas por palavras 


chave e marcação para 


=| download posterior. 








Shopping OnLine, 


aqui você pode comprar 
diversos produtos, 
a preços reduzidos, 


— num piscar de olhos. 


Y Você ainda tem a sua disposição uma Central para Distribuição de FAX, pode participar de Concursos com 
* vários premios, serviço de Boletins & Novidades e muito mais . .. 


Pulliconnectiom bhs & chopphg 


e BBS: (011) 440-/344 e 440-7204 
(011) 412-7610 - Fax: (011) 444-1167 


Caixa Postal 108 - Santo André - SP - 09001-970 - Tel.: 


condi: 








E ai e 4 do E 
AMIGA - MSX - PC - APPL 


Venda de softwares diversos. 

Jogos, Aplicativos, Utilitários, Sharewares, etc...) 
Venda de CD-ROMS. (Ultimos lançamentos.) 
-Compra, Venda e Troca de equipamentos. 






É ate para Infomática. * Possulimos 
-Suporte técnico. - ; 
(Resolvemos o problema do seu computador mais de 70.000 
seja ele qual for!) títulos de 
-Manutenção de computadores e periféricos. Sharewares 
-Animações gráficas. 
(Produzimos animações por encomenda para Po, 


para as linhas PC, AMIGA e MSX 2.0) 
-Diagramação. 2» 

(Trabalhos escolares, Montagem de anúncios 

para revistas, Panfletos, ect...) 
-Desenvolvimento de sistemas. 

(Ctrl Estoque, Cad. Cliente, Ctrl Locadora, 

Ctrl Transportadora, etc...) 


% Gravamos jogos para 
ZX Spectrum e MSX em 
fita K7. 


R. Barão de Itapetininga, 297 - 90 andar - CJ.907 
Centro - São Paulo - SP - Cep: 01042-000 
Tel.:(011) 982-1396 - Próximo ao metrô República. 





